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

---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 访问该论坛
-~----------~----~----~----~------~----~------~--~---