Help for this page

Select Code to Download


  1. or download this
    my %params = split /[+=]/, $ENV{QUERY_STRING};

print Dumper(\%params);
  2. or download this
    use Data::Dumper;
use Text::ParseWords;
...
my %params = map { split /=/, $_, 2 } parse_line('\+', 0, $ENV{QUERY_S
+TRING});

print Dumper(\%params);