[PerlChina] Re: 请问psh怎么用的

把我刚才贴的复制过去存成psh.bat

2009/2/13 Michael Zeng <galaxy2004@gmail.com>:
> 我没有这个psh.bat 文件啊
>
>
>
> On 2/13/09, Shu Cho <neatcho@gmail.com> wrote:
>>
>> ---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 访问该论坛
-~----------~----~----~----~------~----~------~--~---