maybe you can open Psh.pm and comment out the "use strict" at head with #
2009/2/16 Michael Zeng <[email protected]> > 大哥，你能执行多少语句啊 > > 我都是只能执行一句就退出，比如print "\a" , > > 见我的 照片 > > > > On 2/16/09, xie yu <[email protected]> wrote: >> >> cmd下直接打psh就进去了 >> >> 2009/2/13 Michael Zeng <[email protected]> >> >>> 我问得是怎么用啊 ， 安装好了， command找不到psh >>> >>> use psh ? >>> >>> 我记得像shell一样的东西 >>> >>> >>> >>> >>> On 2/13/09, xie yu <[email protected]> wrote: >>>> >>>> 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 访问该论坛 -~----------~----~----~----~------~----~------~--~---
