- 453 名前：447 mailto:sage [2009/04/29(水) 21:36:31 ID:???]
- 試行錯誤してますが、どうもうまくいかないです…。
foreach my $var ( @index ){
my $var == @index;
my $var =~ s/\n//;
&error( 'double_word', __LINE__ ) if my $var_ eq "$word\n";
}
変数作って一旦配列の単語をコピーし、\nを置換で削って比較、と思ったのですが
既存の単語が消えて、新しい単語に置き換わる、という結果になってしまいました。
（雨、宝物、てすと、の３つがあった時、新たにとんかちを追加すると直前のてすとがとんかちに変わる）
>>452
ありがとうございます。試してみましたが、やはり重複登録できてしまいました。
