GETパラメータを分解する
my $query_str = (defined $ENV{'QUERY_STRING'})? $ENV{'QUERY_STRING'} : "" ; my %query; foreach my $line (split /\&/, $query_str) { # test=1&cmd=init&first=E&random=212 my ($key, $val) = split /\=/, $line; $query{$key} = $val; log_out("$key=$val"); }