不能运行，大哥
hello world都 退出 On 2/13/09, Shu Cho <[email protected]> wrote: > > > 把我刚才贴的复制过去存成psh.bat > > 2009/2/13 Michael Zeng <[email protected]>: > > 我没有这个psh.bat 文件啊 > > > > > > > > On 2/13/09, Shu Cho <[email protected]> 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::origi...@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 <[email protected]>: > >> > 我那个目录里面没有psh啊， 怪不得起不来 > >> > > >> > 那怎么用呢 > >> > win32 下 > >> > > >> > > >> > On 2/13/09, Shu Cho <[email protected]> wrote: > >> >> > >> >> 我是用strawberry装的。有个psh.bat的文件会安装在和perl.exe那个目录里面 > >> >> > >> >> 2009/2/13 Michael Zeng <[email protected]>: > >> >> > 上次看到joe在用psh挺好的 > >> >> > > >> >> > 我用activerperl 的ppm安装了psh， 可是怎么用啊 > >> >> > > >> >> > 在command 里面 打psh，说command not found > >> >> > > >> >> > > >> >> > -- > >> >> > Yours Sincerely > >> >> > Zeng Hong > >> >> > > > >> >> > > >> >> >> > >> > > >> >> > > > > > > -- Yours Sincerely Zeng Hong --~--~---------~--~----~------------~-------~--~----~ 您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。 要在此论坛发帖，请发电子邮件到 [email protected] 要退订此论坛，请发邮件至 [email protected] 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 -~----------~----~----~----~------~----~------~--~---
