フォームからデータを取得してテキストファイルに保存して表示する際の質問

締切済

質問者：ikarabeta
質問日時：2008/01/01 23:29
回答数：3件

CGIかなりの初心者です。
infoseek iswebでcgi-lib.plを使って、フォームからデータを取得してテキストファイルに保存してまたそのファイルから読み込んで表示するだけのプログラムを作っているのですが、アクセスするたびにテキストファイルが空になってしまいます。以下のソースなのですが、間違いを指摘していただけないでしょうか？
尚、ひとまず、フォームの項目は3つあり、そのうちの最後だけが0か1か選択でき、他は0しか選択できないようにしています。

#!/usr/bin/perl

require "cgi-lib.pl";

print "Content-type: text/html;\n\n";

# 値をテキストファイルから読み込む
open (IN,"test.txt");
$aaa = <IN>;
close (IN);

$h = substr($aaa,0,1);
$i = substr($aaa,1,1);
$k = substr($aaa,2,1);

print "
<html>
<head>
<title>テスト</title>
</head>
<body>
$h$i$k

<br>
<form method=\"post\" action=\"test.cgi\">
データ1<br><input type=\"radio\" name=\"h\" value=\"0\" checked=\"checked\">0<br>
データ2<br><input type=\"radio\" name=\"i\" value=\"0\" checked=\"checked\">0<br>
データ3<br><input type=\"radio\" name=\"k\" value=\"0\" checked=\"checked\">0<br>
<input type=\"radio\" name=\"k\" value=\"1\">1<br>
<input type=\"submit\" value=\"送信\">
</form>
";

&ReadParse(*form);

# フォームの値を取得
$fh = $form{"h"};
$fi = $form{"i"};
$fk = $form{"k"};

# 値をテキストファイルに書き出す
@faaa = ("$fh","$fi","$fk");
open (OUT,"> test.txt");
print OUT @faaa;
close (OUT);

print "
</body>
</html>
";

通報する

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

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： hrm_mmm
回答日時：2008/01/05 21:06

詳細にといわれても？無いものは無いと言ってるだけなんですけど。

まずは %form の内容を表示してみたら？
それとも、ハッシュ配列の性質すら解ってない？掲示板で簡潔に説明するのは困難なので、まずは、入門書などで初歩の知識を得た上で、どのあたりが解らないのかを詳しく述べてみて下さい。

この回答への補足

「データがない～」というところの、何のデータがなぜないのかがわからないのです。

補足日時：2008/01/05 23:33

通報する

- 0
- 件

通報する

No.2

回答者： hrm_mmm
回答日時：2008/01/04 13:30

実行順をよく考えて下さい。

初回実行
１．　ファイル読み込み：先にファイルを作ってあれば、$h$i$kにデータが入る。
２．　フォームデータの読み込み：まだデータはないので、$h$i$kはnullとなる、ハッシュ配列で定義されていないキーを指定してもperlではエラーは出ない。
３．　書き込み、データがnullなので、上書きモードだと消去になってしまう。

フォーム送信後
１．　ファイル読み込み：null書き込み状態なので、$h$i$kにはデータが無い。
２．　フォームデータの読み込み：$h$i$kに送信されたデータが入る。
３．　書き込み、送信データが上書きされる。

ということで、「# フォームの値を取得」のところは、送信データの有無チェックをしてから代入しましょう。

あと、「print "<html>..」の文字列が改行状態になってますけど、実際のプログラムでは、一行ですよね。でないとエラーになるはずだし？。
でも、こういうとき、ヒアドキュメントっていう便利な記述法があります。文字列を複数行に分けて書けて、２重引用符と一重引用符ともにエスケープしなくても記述できます。

print <<EOL;
<html>
<head>
略
<body>
$h$i$k
<br>
<form method="post" action="test.cgi">
略
</form>
EOL