リクエストで不要なパラメータを除去したいときに役立つかもしれない。
use strict; my $url = shift; my @params = split(/&/, $url); my @empty; my @contain; foreach my $parts(@params){ #print "$parts\n"; @_ = split(/=/, $parts); if (scalar(@_) == 2) { push(@contain, @_[0] . "=" . @_[1]); } else { push(@empty, @_[0] . "="); } } foreach my $parts(@contain){ print "$parts&\n"; } foreach my $parts(@empty){ print "$parts&\n"; }