|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : HB 2:5020/400 10 Jul 2001 18:18:16
To : All
Subject : Re: help for newbie
--------------------------------------------------------------------------------
Serge Pashanin wrote in <994764324@p1.f3.n5073.z2.Fidonet.ftn>...
>********** Cut begin hello.pl **********
>#!perl
>print "Content-Type: text/html\n\n";
>print $ARGV[0];
>if ("X$ARGV[0]" ne "X") {`ps -ax|grep -i -e $ARGV[0]`;}
>else {print "error ...";}
>********** End cut hello.pl ************
> Сpазу хочу оговоpится - дело это все пpобуется под OS/2. Пpичем в комманд-
> лайн (perl -w hello.pl named) все ок. А вот если чеpез cgi-bin на апаче
> смотpеть, то что после print $ARGV[0]; вообще ничего не показывает.
Хоть в командной строке, хоть под CGI, хоть у черта за пазухой:
$ perl -we "if (1) { `echo FOO!!!` }"
$ perl -we "if (1) { print `echo FOO!!!` }"
FOO!!!
В 1-м случае вывод echo идет в никуда.
> Дуpдом. :-\
Hапротив, это очень удобно, что `` так отличается от system()
--
HB mailto:npecca@yahoo.com?subject=Usenet
--- ifmail v.2.15dev5
* Origin: VoronezhSvyazInform ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: help for newbie 
