Главная страница


ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitry Tyutyunnikov                  2:5010/183.14  10 Jul 2000  15:58:00
 To : All
 Subject : просветите
 -------------------------------------------------------------------------------- 
 
 
 Hарод просветите плиз, что делает данный кусок кода:
 
 $member=$ENV{'QUERY_STRING'};
 
 if ($member) {
 @pairs=split(/&/,$member);
 foreach $item(@pairs) {
 ($name,$content)=split (/=/,$item,2);
 $content=~tr/+/ /;
 $content=~ s/%(..)/pack("c",hex($1))/__/e;
 if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; }
 else {$INPUT{$name} = $content; }}}
 
 else {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;
 if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
 else { $INPUT{$name} = $value; }}}
                                  C уважением, Дмитрий.
 ---
  * Origin: Графический замедлитель S3 Trio 3D (FidoNet 2:5010/183.14)
 
 

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

 Тема:    Автор:    Дата:  
 просветите   Dmitry Tyutyunnikov   10 Jul 2000 15:58:00 
 Re: просветите   Artem Chuprina   11 Jul 2000 10:58:14 
 Re: просветите   Andrew Zhilenko   12 Jul 2000 00:52:51 
 Re: просветите   Paul Kulchenko   12 Jul 2000 20:31:30 
 Re: просветите   Artur Penttinen   12 Jul 2000 00:49:29 
Архивное /ru.cgi.perl/38993969f2a7.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional