ファイルに書き込む

解決済

質問者：noname#13767
質問日時：2004/11/01 00:22
回答数：1件

二重に登録されないように既存ファイルを検索した後、ファイルに追記するプログラムを考えています。
次のプログラムを実行すると、二重登録されてしまいます。どうすれば、二重登録を防ぐ事ができるのでしょうか？

#!c:/perl/bin/perl
print "Content-type: text/html;\n\n";
require 'cgi-lib.pl';

&ReadParse(\%data);
$name = $data{'name'};
$age = $data{'age'};
$sei = $data{'sei'};
$input = $name.$age.$sei;

print "<HTML><HEAD>\n";
print "<TITLE>登録完了</TITLE>\n";
print "</HEAD><BODY>\n";

open(RF,"<mem.dat");
while($line=<RF>){
if($line eq $input){
print "既に登録されています。\n";
}
}
close(RF);

open(FP,">>mem.dat");
print FP $input;
print FP "\n";
close(FP);

print "<H3>登録完了しました。</H3>";
print "</BODY></HTML>\n";
exit;

実行すると、二重登録されていても、必ず「登録完了しました。」と表示されてしまいます。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： Ethersky
回答日時：2004/11/01 00:54

ヒントです。

「一行は"改行"まで」です。
ということは
$line eq $input
で比較しても改行があるために「同じ」と判断されません。

あともうひとつ。
たとえ二重登録を検出しても、このままでは
「既に登録されています。」
を表示した後に
「登録完了しました。」
を表示し、結局は登録してしまうことになります。

二重登録を検出し、その旨をメッセージで出したらそこでスクリプトを終わらせるようにしましょう。