ppm 安装psh，可以用5.8.9的 2009/2/13 Michael Zeng <[email protected]>
> 不能运行，大哥 > > > 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 访问该论坛 -~----------~----~----~----~------~----~------~--~---
