テキストファイルを読んで次の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;
# --------------------------------------