> > とりあえずwhileじゃなくてforeachを使ったほうがよさそうだな
> fforeachは上から順に読み込むけど
> 下から順に削りたいな
> reverseか？

while(pop(@a)){
   @b = split($_);
   foreach $c (@b){
       if($c){
       }
   }
}

こんな感じか？

参考：2003/10/25(土)19時04分05秒