[PerlChina] Re: 请问psh怎么用的

我没有这个psh.bat 文件啊

 

 

On 2/13/09, Shu Cho <neatcho@gmail.com> 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::origINC=@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 <galaxy2004@gmail.com>:
> 我那个目录里面没有psh啊， 怪不得起不来
>
> 那怎么用呢
> win32 下
>
>
> On 2/13/09, Shu Cho <neatcho@gmail.com> wrote:
>>
>> 我是用strawberry装的。有个psh.bat的文件会安装在和perl.exe那个目录里面
>>
>> 2009/2/13 Michael Zeng <galaxy2004@gmail.com>:
>> >  上次看到joe在用psh挺好的
>> >
>> > 我用activerperl 的ppm安装了psh， 可是怎么用啊
>> >
>> > 在command 里面 打psh，说command not found
>> >
>> >
>> > --
>> >             Yours Sincerely
>> >                     Zeng Hong
>> > >
>> >
>> >>
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---