Perl 初心者コーナー Part22

[0819 nobodyさん 03/05/10 13:22 ID:???]

>>815
これでどう？
myとか端折ってるから適宜追加してちょ

$key{$_}++ foreach (@maeno);
$key{$_} or $F .= "$_\n" foreach (@tottano);