哦，这么说psh是为non-win 平台用的啊，安装的时候也没有提示啊
On 2/14/09, purl lamp <[email protected]> wrote: > > 可以说把 psh 装在 windows 上面我还真没有尝试过，主要是上键找回历史的功能可能不会正常工作，除非加上 cygwin > 的帮助（但是大家都知道不推荐用 cygwin perl）。 > > 所以最好是用 linux 来尝试，哪怕是虚拟机里面的 ubuntu。 > > apt-get install psh 就好了 > 然后可以 % 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 >>>>> >>>>> >>> >>> > > > > -- Yours Sincerely Zeng Hong --~--~---------~--~----~------------~-------~--~----~ 您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。 要在此论坛发帖，请发电子邮件到 [email protected] 要退订此论坛，请发邮件至 [email protected] 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 -~----------~----~----~----~------~----~------~--~---
