|
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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/38993969f2a7.html, оценка из 5, голосов 10
|