把我刚才贴的复制过去存成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 >> >> > > >> >> > >> >> >> >> > >> >> >
--~--~---------~--~----~------------~-------~--~----~ 您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。 要在此论坛发帖，请发电子邮件到 [email protected] 要退订此论坛，请发邮件至 [email protected] 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 -~----------~----~----~----~------~----~------~--~---
