Help for this page

Select Code to Download


  1. or download this
    use URI;
use Data::Dumper;
...
my %form_var = $uri->query_form;

print Dumper \%form_var;
  2. or download this
    map { s/\+/ /g; uri_unescape($_) }
    map { /=/ ? split(/=/, $_, 2) : ($_ => '')} split(/&/, $old);
  3. or download this
    my %hash;
for my $pair (split /&/, $old) {
...
   }
}
return %hash;