我没有这个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 访问该论坛 -~----------~----~----~----~------~----~------~--~---
