---8<--- psh.bat
@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#! /usr/bin/perl
#line 15
#
# psh - Perl Shell
#
# Copyright (C) 1999-2003 Gregor N. Purdy. All rights reserved.
# This script is free software. It may be copied or modified according
# to the same terms as Perl itself.
#
package Psh; # still use a package so getopt etc. is not imported into
# the shell namespace
use Psh;
require Psh::Locale;
require Psh::Util;
#
# Parse the command line and deal with the options except -r, which is
# handled in the MAIN program below. We do this part very early in this
# file so that the results apply to all the setting up we do before the
# MAIN program.
#
# option -i is ignored
@Psh::origINC=@INC; # save it
my %opt=();
if (@ARGV) {
require Getopt::Std;
Getopt::Std::getopts('Fiwrd:f:c:', \%opt);
if ($opt{'r'}) {
Psh::Util::print_error_i18n('no_r_flag');
exit 1;
}
#
# -w is "warnings mode":
#
if ($opt{'w'}) {
Psh::Util::print_out_i18n('simulate_perl_w');
$^W = 1;
use strict;
}
#
# -d is "debug mode":
#
if (exists($opt{'d'})) { $Psh::debugging = $opt{'d'}||'soie'; }
else { $Psh::debugging = 0; }
}
Psh::Util::print_debug("Debugging!\n");
Psh::minimal_initialize;
Psh::process_rc($opt{'f'}) unless $opt{'F'};
Psh::finish_initialize;
# TODO: Is this implementation equivalent to sh's ?
if($opt{'c'}) {
Psh::evl($opt{'c'});
exit 0;
}
if (@ARGV) {
Psh::process_args;
} else {
Psh::initialize_interactive_mode;
while (1) {
eval { Psh::main_loop; };
Psh::handle_message($@,'main_loop');
}
}
exit 0;
__END__
:endofperl
--->8--- psh.bat
2009/2/13 Michael Zeng <galaxy2004@gmail.com>:
> 我那个目录里面没有psh啊， 怪不得起不来
>
> 那怎么用呢
> win32 下
>
>
> On 2/13/09, Shu Cho <neatcho@gmail.com> wrote:
>>
>> 我是用strawberry装的。有个psh.bat的文件会安装在和perl.exe那个目录里面
>>
>> 2009/2/13 Michael Zeng <galaxy2004@gmail.com>:
>> > 上次看到joe在用psh挺好的
>> >
>> > 我用activerperl 的ppm安装了psh， 可是怎么用啊
>> >
>> > 在command 里面 打psh，说command not found
>> >
>> >
>> > --
>> > Yours Sincerely
>> > Zeng Hong
>> > >
>> >
>> >>
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
博文
