use CGI;　$query = new CGI;　$query->param()

use CGI;

$query = new CGI;

を使って大量に同じようなnameのデータを取得してごちゃごちゃしたい時があります

少量ならそのまま　$mo = $qu->param(‘mo’);　なんてとってきちゃうのですが、あまりに大量の連番nameの値を加工して使用する時はどうしたらいいのか？？？

タヌキのお散歩さんの、「PERLに関してメモ」をとんでもなく参考にさせていただきました

大量に取得したデータの中で、必要なものだけ配列に入れちゃいます

use CGI;
my $query = new CGI;
my %keys;

$ii=0;
 foreach ($query->param()){
   my $a=$query->param($_); 
   $a=~ s//|/g;
   $keys{$_}=$a;

　$day = $ii+1;

 #いらないデータは格納しない
 unless( $keys{iranai1}? or? $keys{iranai2} ){
 　　push(@newdata,"$day<>$keys{$_}<>n");
 }

   $ii++;
 }

↑こんな感じです

楽にできました～