perl cgiの変数の受け渡しができません。3

Question

http://oshiete.goo.ne.jp/qa/7451675.html すみません、3回目の質問です。相変わらず変数の値がうまく渡りません。 3つのページ（ファイル）に分かれていまして a 入力ページ b 入力確認ページ c メール送信ページの構成になっています。 a,入力ページが print $q->start_html(-title=>"*****", -BGCOLOR=>'#ffffff'), #$q->p('Content-type: text/html '), #$q->header(-charset=>"Shift_JIS"), $q->p(''), $q->p('****FONT>'), $q->hr, $q->p(''),# 送信データここまで $q->hr, $q->end_html; となっています。ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー b.入力確認ページが $formdata = "最初は空っぽ"; print "$formdata
"; if ($ENV{'REQUEST_METHOD'} eq "GET") {# GETでの受信 $formdata = $ENV{'QUERY_STRING'}; print "Get=$formdata"; } else {# POSTでの受信 read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'}); print "POST=$formdata"; } print "$formdata
";#ここも空っぽ・・・・ #################################################################################### # 表示部 #################################################################################### #print $q->header(-charset=>"Shift_JIS"); print $q->start_html(-title=>"******", -BGCOLOR=>'#ffffff'), $q->p(''), $q->p(''),# 送信データここまでーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーとなっていますが、受信したはずのデータが空っぽのようなのです。何も表示されません。色々調べてみたのですが、よくわかりませんでした。教えて頂きたいです。

kmee · Accepted Answer

$qは何でしょう? おそらくCGIオブジェクトだと思います。そうであるなら http://perldoc.jp/docs/modules/CGI-2.89/CGI.pod より > 新しい問い合わせオブジェクトの作成(オブジェクト指向スタイル）: > $query = new CGI; > これは（POSTとGETメソッドの両方からの）入力を解析し、 $queryと呼ばれるperl5オブジェクトに格納します。と、あります。つまり、 > if ($ENV{'REQUEST_METHOD'} eq "GET") {# GETでの受信 (略) > print "POST=$formdata"; >} の部分はまったく無意味なコードです。CGIモジュールを使う理由の一つは、こういうコードを書かなくても、簡単にパラメータ受けとれる、ということです。内容はparamメソッドで取りだせます。・これが出力したHTMLを「ソースを見る」等で確認しました? pメソッドは

タグの構造をperl上で表現するためのものです。 $q->p( "aaaa", $q->strong("BBB") , "ccc" ) →

aaaaBBBccc

といったように。こうすると、Perlでの文法の構造と、HTMLの文法構造が一致するわけです。それをまったく無視してるので、できあがったソースが無茶苦茶になってます。そのせいで、そもそものデータが送られてない可能性もあります。 formを書くなら http://perldoc.jp/docs/modules/CGI-2.89/CGI.pod#pod125011 あたりを読んでください。正しい文法かどうかもわからないなら、各種チェッカーがありますから、使ってください。 http://validator.w3.org/ http://openlab.ring.gr.jp/k16/htmllint/index.html http://users.skynet.be/mgueury/mozilla/ (firefoxのアドオン) ・前の質問(http://oshiete.goo.ne.jp/qa/7453554.html)から > ラクダ本の上巻は必須でしょうか？下巻は、当然、上巻の続きですから、上巻を読んでいること前提で書かれています。他の資料で上巻相当のことを理解しているのなら不要かもしれません。が、これまでのやりとりを見ていると、とてもそうには見えません。ラクダ本はあまり初心者向けではないので、今すぐに、とは言いませんが、将来続けていくなら読んでおいた方がいいです、

perl cgiの変数の受け渡しができません。3

$qは何でしょう?

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング