リクエストパラメータで中身があるものと空のものを区別して表示するプログラム

リクエストで不要なパラメータを除去したいときに役立つかもしれない。

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";
}