Вот кусочек кода:
if ($ENV{"REQUEST_METHOD"} eq "POST") {
$ct = $ENV{"CONTENT_TYPE"};
$cl = $ENV{"CONTENT_LENGTH"};
# check the content-type for validity
if($ct ne "application/x-www-form-urlencoded")
{
printf "I don\'t understand content-type: %s\\n", $ct;
exit 1;
}
# put the data into a variable
read(STDIN, $qs, $cl);
} else {
# put the QUERY_STRING into a variable
$qs = $ENV{\'QUERY_STRING\'};
}
# split it up into an array by the \'&\' character
@qs = split(/&/,$qs);
#
for($i = 0;$i <= $#qs; $i++)
{
# convert the plus chars to spaces
$qs[$i] =~ s/\\+/ /g;
# convert the hex characters
$qs[$i] =~ s/%(..)/pack("c",hex($1))/ge;
# split each one into name and value
($name, $value) = split(/=/,$qs[$i],2);
# create the associative element
$qs{$name} = $value;
}
Чтобы это могло значить практически в самом начале скрипта?
Самое интересное, что когда я его вырезал, на работе скрипта это не сказалось, или это мне только так кажется?