ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Suhov                         2:5020/400     26 Aug 2000  04:38:05
 To : All
 Subject : Re:  $name($value)
 -------------------------------------------------------------------------------- 
 

 if ($ENV{'REQUEST_METHOD'} eq "GET") {$buffer= $ENV{'QUERY_STRING'};
 } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
 read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});};
 @pairs = split(/&/, $buffer);
 foreach $pair (@pairs) {
 ($name,$value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 $value =~ s/~!/ ~!/g;
 $in{$name} = $value;
 
 Вот и все и ничего лишнего
 Результат
 test.cgi?name=icecream
 $in{name}=icecream;
 _______________________________________
 Perl - простота бейсика, мощь СИ
 
 > Hey All! Wanna fight?
 >
 > В переменной $name - имя фyнкции. Как мне ее вызвать не пользyясь
 
 eval?
 
 >
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:     $name($value)   Konstantin Osipov   25 Aug 2000 23:09:34   Re: $name($value)   Sergey Suhov   26 Aug 2000 04:38:05    $name($value)   Albert N. MICHEEV   26 Aug 2000 09:31:10   Re: $name($value)   Michael Samanov   26 Aug 2000 10:25:10    $name($value)   Anton Mansurov   27 Aug 2000 22:40:51   Re: $name($value)   Michael Samanov   28 Aug 2000 09:54:09