|
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
