-
if ($ENV {'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV {'CONTENT_LENGTH'});
@pairs = split (/&/, $buffer);
foreach$pair(@pairs) {
($name, $value) = split (/=/, $pair);
$value =~ tr/t/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack ("C", hex ($1))/eg;
$FORM{$name} = $vaule;
}
}
I have just started in CGI/Perl programming and would like to know what this code does. I sort of know what I think it is trying to do, but I'm not sure. If someone could explain it to me that would be so great.
Thanks for the help in advance.
-
It converts the query string:
Code:
?action=newreply&threadid=27509
or similar...
into an associative array:
$FORM{'action'} = "newreply"
$FORM{'threadid'} = "27509"
