ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     12 Jul 2000  00:49:29
 To : All
 Subject : Re: просветите
 -------------------------------------------------------------------------------- 
 

 On Mon, 10 Jul 2000, Dmitry Tyutyunnikov wrote:
 
 > From: Dmitry Tyutyunnikov
 >     <Dmitry.Tyutyunnikov@p14.f183.n5010.z2.fidonet.org>
 > Newsgroups: fido7.ru.cgi.perl
 > X-Comment-To: All
 > Subject: просветите
 > Date: Mon, 10 Jul 2000 14:58:00 +0400
 > Organization: Графический замедлитель S3 Trio 3D
 > 
 >       Привет All !
 > 
 > 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; }}}
 
   Пытается разобрать cgi запрос, но с ошибками.
 
           WBW, Artur
 
 -- 
 Макияж - это попытка нарисовать на своём лице лицо другой,
 гораздо более красивой женщины.
 --- ifmail v.2.15dev5
  * Origin: Gamma NNTP server Moscow Russia (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    просветите   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