foreach $pair (split('&', $form)) { if ($pair =~ /(.*)=(.*)/) { ($key,$value) = ($1,$2); $value =~ s/\+/ /g; $value =~ s/%(..)/pack('c',hex($1))/eg; $value =~ s/%0D%0A/ /eg; $inputs{$key} = $value; } }
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)