テキストファイルを読んで次のcgiファイルを動かすには？

質問

お願いします。初心者です。
0001.cgi で　正解 Einstein　を　Send すると
　file.txt に -1 と書き込むようにしました。
さらに
　0002.cgi へのリンクが出て、これをクリックすると
0002.cgi が動くようにしました。
　そして、
file.txt に　-1 が　ない場合に
0002.cgi が動き始めないようにしようとしています。

0001.cgi　の問題に正解しないと、0002.cgi へ行けない
ようにしようとしています。どうしたらよいのでしょうか？

どうか、お教えください。
よろしく、お願いいたします。

0001.cgi　は、こんなふうになっています。
↓
----------------------------------------
print header;
# --------------------------------------
print start_html('0001');

#ここに問題を入れました　答は Einstein　です。

print startform(
-method => 'POST',
-action => '0001.cgi'
);

print blockquote(
textarea(
-name => 'die Antwort',
-rows => '3',
-columns => '40'
)
);
print br;
print submit(-value => 'Send');
print reset;
print endform;

# --------------------------------------

if (param('die Antwort') eq 'Einstein'){
print h2('Einstein');
print h2('<a href="0002.cgi">next page</a>');

open(FILE, '>>file.txt') or die "$!";
print FILE ("-1");
close(FILE)
}

else{
print h3('false');
}
# --------------------------------------
print end_html;
# --------------------------------------

回答No.1

moon_night · ベストアンサー

ぱっと思いつくのは以下の方法。
１、クッキーを発行する
２、IP（やE-mailなどの一意な値）と結果をサーバで保存する
３、内部パラメータを持って回す（用意に偽装可能）

お礼

ありがとうございました。