こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

CGI初心者です

sub html でフォームに入力してもらい、
sub kekka で入力情報を確認し、
sub shori でテキストファイルに登録。
というプログラムを考えているのですが、
フォームから入力されたデータが入った変数$in{'name'}
が、sub shori に移ると消えてしまいます。
いろいろ試行錯誤したのですが分かりませんでしたので
教えていただけたらと思います。
以下がサンプルのソースです。

#!/perl/bin/perl
require './jcode.pl';
require './cgi-lib.pl';
&ReadParse;

if($in{'action'} eq "set"){&kekka;}
elsif($in{'action'} eq "sss"){&shori;}
else{&html;}

sub html{
print "Content-Type: text/html\n\n";
print <<EOM
<html>\n
<body>\n
<h1>CGIテスト1</h1>\n
<form ACTION="./sample.cgi" METHOD="POST">\n
<INPUT type=hidden name=action value="set">\n
名前<br><input type=text name="name" size="30" MAXLENGTH="30"><br>\n
<input TYPE="submit" value="確認"><INPUT type="reset" value="リセット">\n
</form>\n
</body>\n
</html>\n
EOM
}

sub kekka{
print "Content-Type: text/html\n\n";
print <<EOM
<html>\n
<body>\n
<h1>CGIテスト2</h1>\n
<form ACTION="./sample.cgi" METHOD="POST">\n
<INPUT type=hidden name=action value="sss">\n
name = $in{'name'}
<input TYPE="submit" value="登録">\n
</form>\n
</body>\n
</html>\n
EOM
}

sub shori{
print "Content-Type: text/html\n\n";
print <<EOM
<html>\n
<body>\n
<h1>CGIテスト3</h1>\n
<form ACTION="./sample.cgi" METHOD="POST">\n
name = $in{'name'}
</form>\n
</body>\n
</html>\n
EOM
}

投稿日時 - 2004-07-13 22:44:01

QNo.925399

困ってます

質問者が選んだベストアンサー

No.1 の方が、ヒアドキュメント内の変数や \n などは展開されない、と書いていますが、それは <<'EOM' のようにシングルクォートで囲んだ場合であり、<<EOM や <<"EOM" の場合には問題なく展開されます。

また、No.2 の ReadParse の指摘についても、ReadParse の引数を省略すると *in が指定されたものとして動作するので、全く問題ありません。
ちなみに ReadParse は、フォームから送信されたデータを解析して in というハッシュ(連想配列)に格納してくれます。

では何が問題かというと、kekka 画面のフォーム内に
<input type="hidden" name="name" value="$in{name}">
が無いことです。
CGI というのは1回の処理ごとに新しくプログラムが実行されるので、前回の処理で受け取った変数などは一切引き継がれません。これを引き継ぐためには HTML の hidden を利用し、フォーム送信で実行される「次回の」CGI で同じ値が設定されるようにするのです。

流れを図解すると、次のようになります。
  <ブラウザ>            <CGI>
    アクセス ──────→ 起動
    html画面 ←────── html画面を出力
       :             終了
       :
      送信 ──────→ 起動
                    ReadParse で $in{name} が設定される
   kekka画面 ←────── kekka画面を出力(hidden で name を埋め込む)
       :             終了
       :
      送信 ──────→ 起動
(hiddenのname="xxx"も送信する)
                    name="xxx" はReadParse で解析され、
                    $in{name} に同じ値として設定される。
   shori画面 ←────── shori画面を出力
                    終了

この「CGIの仕組み」は最初の内は取っ付きにくいと思いますが、何となくお分かりいただけたでしょうか?

投稿日時 - 2004-07-14 01:18:51

お礼

ご返答心から感謝します。

わかりやすい解説をしていただきありがとうございます。だいたいの理屈は理解できました。
ネットや書籍で色々調べたのですが、この問題についての解説を見つけることができませんでした。ここで質問して本当に良かったです。

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

投稿日時 - 2004-07-14 02:01:15

ANo.4

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(4)

ANo.3

わかりました!

sub kekka{}がおかしいです。
sub kekka{}で結果を表示させているだけで、データの再セットがされていませんので、次のsub shori{}にデータが渡っていません。

sub kekka{}に下の1文を追加してください。
<INPUT type=hidden name=name value="$in{'name'}">
再度、name=nameを宣言して、同じデータを入れて送ります。

これで、#2の
&ReadParse(*in);
も忘れずに入れておけば、動くはずです。

投稿日時 - 2004-07-14 01:09:00

お礼

ご返答心から感謝します。

<INPUT type=hidden name=name value="$in{'name'}">
を追加したら変数の値が shori まで渡りました。

わかるまで考えていたただき、本当にありがとうございました。
登録フォームを作ろうと思ったのですが、この問題でつまづいて一週間以上悩んでいました。
これでなんとか作れそうです。

投稿日時 - 2004-07-14 01:55:32

ANo.2

あ!
重要な部分が間違っています!!!

&ReadParse;

ではなく、

&ReadParse(*in);

です、(*in)が無いと、$in{'xxx'}にデータを格納できません。

もし

&ReadParse(*dat);

ならば、$in{'name'}ではなく、$dat{'name'}にデータが格納されます。

投稿日時 - 2004-07-14 00:29:17

補足

ご返答心から感謝します。

&ReadParse(*in);
にしてみましたが、結果は同じでした…。
sun kekka と sub shori ではほとんど同じ処理をしており、sub html からのsubmitで移るサブルーチンが kekka であれ、 shori であれ、変数は保持されているようです。
問題は、そこから更にsubmitさせて移ったサブルーチンでは保持されていないということのようです。

そもそも根本的に何か間違っているのでしょうか…。
ちなみに、&ReadParseが何故必要なのかも分かっていないんです。すみません。

投稿日時 - 2004-07-14 00:44:40

ANo.1

<<EOM
から
EOM

の間のhtmlのソースの出力部分ですが、この中に入っている変数や\n等は展開されません。
変数を展開するにはダブルクォーテーションで囲んで出力しないといけません。

ですので例えば、sub shori{}の中の出力部分は下記のようにすると、変数が展開されます。

print "Content-Type: text/html\n\n";
print "<html>\n<body>\n";
print "<h1>CGIテスト3</h1>\n";
print "<form ACTION=\"./sample.cgi\" METHOD=\"POST\">\n";
print "name = $in{'name'}</form>\n</body>\n</html>\n";

一応、わかりやすいように、print分を複数に分けてみましたが、1行でずらずら~っと書いても大丈夫です。
ただ、print print と沢山書くのが面倒なので、いくつかの行を纏めて書きましたが、出力はきちんと\nで改行されるので大丈夫です。
あと、"~"の中に"が発生する場合は、前に\をエスケープしておけば、単なる文字列として認識されますので"の終わりとして認識しません。

このままでは、修正とか変更の作業が繁雑なので、たとえば、出力するhtmlを別の変数に格納しておいて、必要な部分だけを置換して出力させるとか、別のファイルにしておいて、それを読み込んで加工するとか、メンテナンスを楽にすることを意識してプログラムを作るのも一つの方法です。

ところで、

<form ACTION="./sample.cgi" METHOD="POST">
name = $in{'name'}

って、おかしいと思います。

<form ACTION="./sample.cgi" METHOD="POST"name = $in{'name'}>

ではないですか?
それか、
<input type=ほにゃらら name=in{'name'}>
とか?

投稿日時 - 2004-07-13 23:08:17

補足

ご返答心から感謝します。

iichihoさんの言われたとおりに、sub shori を変更してみましたがやはり変数が保持されていないようでした。
sub kekka には渡っているのですが…。

<form ACTION="./sample.cgi" METHOD="POST">
name = $in{'name'}

の部分は確かに変でした。ただ $in{'name'}の中を確かめたかっただけですので、formタグは不必要でした。

結果として sub shori のソースは
sub shori{
print "Content-Type: text/html\n\n";
print "<html>\n<body>\n";
print "<h1>CGIテスト3</h1>\n";
print "name = $in{'name'}";
print "</body>\n</html>\n";
}
でいいわけですよね?でもうまくいかないんです。

投稿日時 - 2004-07-13 23:39:36

あなたにオススメの質問