★三　【スクリプト改造工房 PART 9 】　★三

★三　【スクリプト� ..

453:447
09/04/29 21:36:31
試行錯誤してますが、どうもうまくいかないです…。

foreach my $var ( @index ){
my $var == @index;
my $var =~ s/\n//;
&error( 'double_word', __LINE__ ) if my $var_ eq "$word\n";
}

変数作って一旦配列の単語をコピーし、\nを置換で削って比較、と思ったのですが
既存の単語が消えて、新しい単語に置き換わる、という結果になってしまいました。
（雨、宝物、てすと、の３つがあった時、新たにとんかちを追加すると直前のてすとがとんかちに変わる）

>>452
ありがとうございます。試してみましたが、やはり重複登録できてしまいました。

次ページ