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

↑こんな感じです

楽にできました~