質問: split(/\,/,$line); chop; if ($p2 ne '') { $i++; $p2s{($p2)[0]}++; $n++; } } foreach (keys %p2s) { print "$_\n"; } print "\n";
回答: その 「ERROR!」という表示が、1行目にある「&error(0);」によるものであるとすれば、ファイルが開けてないんでしょうね。spell miss とかないですか?