標準入力からデータが読込めない

2023/08/07 13:19

このQ&Aのポイント

現在perlにてcgiを作成しています。標準入力からデータを取得できずに困っています。
作成したcgiではPOSTで受け取ったデータを標準入力から取得できません。
解決策や調査方法を知っている方がいれば教えていただきたいです。

ベストアンサー

標準入力からデータが読込めない

2007/08/01 19:35

現在perlにてcgiを作成しています。以下のようなcgiを作成したのですが、POSTで受取ったデータが標準入力より取得できません。解決策、又は、調査方法等ご存知の方いらっしゃいましたら教えてください。 --------- a.cgi -------- #!/usr/bin/perl print "Content-type: text/html\n\n"; if( $ENV{'REQUEST_METHOD'} eq "POST" ){ read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} ); }else{ $buffer = $ENV{'QUERY_STRING' }; } print <<"HTML"; <HTML><HEAD><TITLE>テスト</TITLE> <META http-equiv=Content-Type content="text/html;"> </HEAD> <BODY> <FORM id=Form1 name=Form1 action=a.cgi method=post> HTML print <<"HTML"; <INPUT type=hidden value=aaa name=text1> <INPUT onclick="return confirm('送信します。よろしいですか？');" type=submit value=送信 name=Button1> </FORM> </BODY> </HTML> HTML exit; -------------------------------------------------- $ENV{'REQUEST_METHOD'} は POST を取得できていますし、 $ENV{'CONTENT_LENGTH'} も文字数は取得できています。どうか宜しくお願い致します。

kawakuma19
お礼率50% (1/2)

Perl
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

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

ベストアンサー

g_p_
ベストアンサー率53% (28/52)

2007/08/02 11:44 回答No.2

こんにちは、ローカルで実行してみたら、ちゃんと読み込んでましたよ。 >２つのヒアドキュメントの間にはcgiの処理があるため分けています。この辺りでクリアしてしまってたりとか？

質問者

お礼 2007/08/02 14:07

こんにちわ。再度の回答ありがとうございます。解決しました。実は、今回の質問文には書いていなかったのですが、 a.cgiでCGI.pmを使っているのですが、そちらの方でフォームデータの獲得ができました。 use CGI;　←　すでに宣言済 $q = new CGI;　←　すでに宣言済 $data = $q->param('aaa');　←　新たに追加上記の方法で獲得するのが普通のようでした。ご迷惑をおかけしました。ありがとうございました。

その他の回答 (1)

g_p_
ベストアンサー率53% (28/52)

2007/08/02 09:23 回答No.1

こんにちは、 >$ENV{'REQUEST_METHOD'} は POST を取得できていますし、 >$ENV{'CONTENT_LENGTH'} も文字数は取得できています。同じように $buffer も確認したんですか？ >read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} ); これ自体には特に問題ない気がしますけどね本題とは違いますが、 HTML を print してるヒアドキュメントは二つに分けなくてもいいんじゃないですか？分けてもよいかも知れませんが、ターミネータは別の文字列にした方が良いかも知れません。

質問者

補足 2007/08/02 11:15

こんにちわ。 >同じように $buffer も確認したんですか？はい。確認しました。 $bufferの中身は空でした。 >HTML を print してるヒアドキュメントは二つに分けなくてもいいんじゃないですか？ >分けてもよいかも知れませんが、ターミネータは別の文字列にした方が良いかも知れません。２つのヒアドキュメントの間にはcgiの処理があるため分けています。質問の時は１つにすればよかったですね。ご指摘ありがとうございました。

関連するQ&A

CGＩ間のデータ送信について(perl)
perlのcgiで詰まってしまったので質問します。現在困っていることは、cgiからcgiへの変数の値の受け渡しについてです。色々調べてやってみたのですが、うまくいきません。送信側で print "<form action = \"sendmail.cgi\" method=\"post\">"; print "<A href =\"sendmail.cgi?$array1[0]&$array1[1]&$array1[2]&$array1[3]\">sendmail.cgi</A>"; print "<input type=\"submit\" value=\" ボタンです。　\">"; print "</form>"; として受信側で # postでもgetでも受信できるようにする if ($ENV{'REQUEST_METHOD'} eq "GET") { $data = '1'; $testmsg = "GETで受信"; $formdata = $ENV{'QUERY_STRING'}; print("$formdata<BR>"); } elsif ($ENV{'REQUEST_METHOD'} eq "POST"){ # こちらを使用している $data = '2'; $testmsg = "POSTで受信"; $length = $ENV{'CONTENT_LENGTH'}; read(STDIN,$formdata,$ENV{'CONTENT_LENGTH'});# $dataに受信する print("$formdata<BR>"); } else { $data = '3'; $testmsg = "受信することができませんでした。<BR>"; } としてpostにて受信しようとしています。 postのif文には入ったようなのですが、データが空っぽで何も入っていないようなのです。何が原因なのでしょうか？助けてほしいです。
- 締切済み
- CGI
LWPによるページ取得の問題
すいません、アホです。いろいろ調べましたが、まったくみつかりませんでした。この質問をすることは初歩すぎて失礼かとおもいますが、堪忍してくださいませ。 LWPで相互リンクをされているかどうかをCGIファイルの登録ページ後に判断したいプログラムですが、同じCGIファイル内に登録ページがありまして、<INPUT size=30 name=url>のように相手リンクを登録した自分のHTMLを書いてsubmitさせて、 if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } で、取り出し、$FORM{'url'}まできます。URLがちゃんと$FORM{'url'}に入っているのは画面で確認できるのですが、下記のように指定した場合、相手HTMLを取得できません。エラーメッセージはでないで、真っ白い画面がでます。 $url = $FORM{'url'}; use LWP::Simple; $content = get("$url"); print "Content-type: text/html\n\n$content"; 下記はちゃんとうつります。 $url = 'http://www.yahoo.co.jp'; use LWP::Simple; $content = get("$url"); print "Content-type: text/html\n\n$content"; これは$FORM{'url'}のエンコードの問題なのでしょうか？まことに申し訳ありませんが、その方法をできれば具体的にお教えくださいませ。何卒、宜しく御願いいたします。ｍ_ _ ｍ
- 締切済み
- Perl
フォームからのデータの引渡し
<FORM method="post" action="./formmail.php"> <INPUT type="text" name="namae" size="20"> <INPUT type="text" name="tel" size="20"> : : : </FORM> というようなhtmlファイルからformmail.phpでデータを受け取る方法教えていただきたいのです。上記HTMLファイルのINPUTタグ（入力項目）の数も自由に変更可能でnameも自由に変更した場合でも、formmail.phpは一切変更なしに対応したいのです。例えばPerlならCGI側に if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); @a = split(/&/, $query_string); foreach $x (@a) { ($name, $value)=split(/=/, $x); $msg .= "$name：$value<BR>\n"; } } とすることにより、受け取れると思います。 PHPではどう書けばよいでしょうか？よろしくお願いします。
- ベストアンサー
- PHP
HTML5からのフォーム入力のデータ取得について
HTML5からのフォーム入力のデータ取得について HTML5で入力フォームを作成しました。これをCGI（Perl）で入力データを受け取って処理をしたいと考えているのですが HTML4の時みたいに、 if ($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN, $querystring, $ENV{'CONTENT_LENGTH'}); } foreach $line (split(/&/, $querystring)){ my ($name, $value) = split(/=/, $line); } このやり方では入力項目の名前と値を取れないのでしょうか？ $querystringの中身をみたら、 Content-Disposition: form-data; name="入力項目の名前" 入力した値という文字の羅列が、入力項目分ありました。この文字列から一つずつ項目名を拾って、値を拾って。。。という作業をしないといけないのでしょうか？ネットで色々と探したのですが、うまいやり方が見つからず、探し方が悪いのかもしれませんが、どなたかデータの取得のやり方をご存じの方がいらっしゃいましたら教えてください。よろしくお願い致します。
- ベストアンサー
- Perl
perlがうごきません
<html> <head> <title>form3</title> </head> <body> <form action="form3.cgi" method="post" name="form3"> <input type="text"name="form3"> <input type="submit"value="送信"> </form> </body> </html> :::::::::::：：：：：：：：：：：：：：：：：：：： #! /usr/bin/perl if($ENV{"REQUEST_METHOD"} eq "GET"){ $str=$ENV{QUERY_STRING"}; }else{ read(STDIN, $str, $ENV{"CONTENT_LENGTH"}); } $str=~ tr/+/ /; $str=~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("c", hex($1))/eg; foreach(split(/&/, $str)){ my ($key, $value)=split(/=/, $_); $data{$key}=$value; } print "Content-type:text/html\n"; print "\n"; print "<html>\n"; print "<head><title>form3</title></head>\n"; print "<body>$data{'form3'}</body>\n"; print "</html>\n"; exit; :::::::::::::::::：：：：：：：：：：：：：：：どうしてもうごきません。どこかスクリプトがまちがっているのでしょうか。パールのパスはあっています。
- ベストアンサー
- Perl
utf-8環境で標準入力からの全角文字にマッチさせる方法
utf-8でフォーム処理のコードを書いてます。 euc-jpで動作していた全角文字の正規表現がutf-8で動作しません。単純な「$str =~ /あ/」のような書き方ではなく、別な指定方法が必要なのでしょうか？・perl5.8 文字コードutf-8 標準入力側文字コードutf-8 use utf8; my(%POST,$buffer,$key,$value,@data_s); if ($ENV{'REQUEST_METHOD'} eq 'POST') { if ($ENV{'CONTENT_TYPE'} =~ /application\/x-www-form-urlencoded/i) { binmode STDIN; read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @data_s = split(/&/,$buffer); foreach $buffer (@data_s) { ($key,$value) = split(/=/,$buffer); $value =~ tr/+/ /; $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/eg; if ( exists ($POST{$key}) ) { $POST{$key} .= '<>' . $value; } else { $POST{$key} = $value; } } } } binmode STDOUT,":encoding(utf8)"; print "Content-type: text/html; charset=utf-8\n\n"; print "<br>\n"; foreach $key (keys %POST) { if ($POST{$key} =~ /[０-９]/) { print "全角数字にマッチ<br>\n"; }###### print "$key = $POST{$key}<br>\n"; } exit;
- ベストアンサー
- Perl
iis+cgiでmultipart/form-data送信がうまくいかない
これまでLinux＋Perl/CGIで構築していたWEBサーバをIIS+Perl/CGIに移す必要が生じ、新規にIISによるWEBサーバを構築しました。一気にコンテンツを移動してもハマるだけだと考え、まずは簡単なコードを記述しCGIが動作するかどうかテストしています。 POSTによるinput type=textのデータ表示まではうまく行きましたが、ファイルアップロードのところで詰まりました。 IIS（Windows）によるWEBサーバの構築は初めてで、何が問題なのかサッパリわかりません。どなたか問題点あるいはどこをチェックすれば良いかご指摘いただけませんでしょうか。 ●やった事 PerlにてPOSTを利用しmultipart/form-dataにてファイルをアップロードするシンプルなコードを書き、第一段階としてMIMEエンコードされたものをブラウザ上に表示するしようとしてみた。コードは最下方の通り。 ●症状送信を実行してもアップロード中のまま（ウィンドウマークが動き続けている）で、IISに設定してある10分程のタイムアウト時間を過ぎて終了してしまう。 TXT、XLS、DOCなどファイル種を変えて試しても全く同じ症状。 ●環境：Windows2000ServerSP4　IIS5.0　Perl5.8.8 *******アップロード画面****** <HTML> <HEAD> <TITILE>ファイルのアップロード</TITLE> </HEAD> <BODY> <FORM ACTION="/cgi-bin/upload.cgi" ENCTYPE="multipart/form-data" METHOD="POST"> ファイル: <INPUT TYPE="file" NAME="File" SIZE="32"><BR> <INPUT TYPE="submit" VALUE="送信"> </FORM> </BODY> </HTML> **********ここまで*********** *******CGI******************* #!/perl/bin/perl read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); print "Content-type: text/html\n"; print "\n"; print "<HTML>\n"; print "<HEAD>\n"; print "<TITLE>test</TITLE>\n"; print "</HEAD>\n"; print "<BODY BGCOLOR=\"#ffffff\">\n"; print "$buffer"; print "</BODY>\n"; print "</HTML>\n"; exit; ********ここまで***********************
- ベストアンサー
- CGI
htmlで呼び出したCGIの出力が文字化けする
下記のInput.cgiというスクリプト（改行コードLF, 文字コードUTF-8） ---------------- #! /usr/bin/perl $method = $ENV{'REQUEST_METHOD'}; if ($method eq 'POST') { read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); } elsif ($method eq 'GET') { $buf = $ENV{'QUERY_STRING'}; } print "content-type: text/html\n\n"; print "メソッドは$methodでした。<br>\n"; print "受け取ったデータは$bufでした。\n"; ---------------- があります。これをブラウザで見ると（入力なしのまま）「メソッドはPOSTでした。　受け取ったデータはxxxでした」と正常に表示されます。次に次の内容のhtml（改行はLF,文字コードはShiftJIS） ------------- <html><head> <title>FORMによるデータ転送</title></head> <body> <form method="POST" action="myInput.cgi"> <input type="text" name="text"><br> <input type=submit value="送信"> <input type=reset value="取消"> </form></body></html> -------------- をブラウザで表示させ、inputボックスに英数字（または日本語）を入力し、「送信」をクリックすると、今度はCGIスクリプト中の日本語を含めて総ての日本語出力が文字化けしてしまいます。これが起きるのは、htmlとCGIの文字コードが異なるからでしょうか？文字化けを止めるには何をすればよいのでしょうか？教えて下さい。お願いいたします。
- 締切済み
- その他([技術者向] コンピューター)
Ajax.Updaterでmultipart/form-dataの送信方法
<html> <body> <form action="/hoge.cgi" method="POST" enctype="multipart/form-data" target="if"> arg1:<input type="textbox" name="arg1"/><br/> <input type="file" name="data" size="60"> <input type="submit" value="Upload" onclick="post()"/> </form> <iframe name="if" id="if" frameborder="0" border="0" width="730" height="500" scrolling="yes"></iframe> </body> </html> 上記と同じような事をiframeを使わないで実現したいです。以下の様に書いてみました。 <!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <script type="text/javascript" src="prototype.js"></script> <script type="text/javascript"> function post(){ var url ='/hoge.cgi'; new Ajax.Updater( $('result'), url, { method: 'POST', parameters: Form.serialize($("form1")), contentType: 'multipart/form-data' } ); } </script> </head> <body> <form id="form1" enctype="multipart/form-data"> arg1:<input type="textbox" name="arg1"/><br/> <input type="file" name="data" size="60"> <input type="button" value="Upload" onclick="post()"/> </form> <div id="result"></div> </body> しかし、/hoge.cgiには前者と同じようなhttpリクエストがわたりません。前者と同じような（下記(1)参照）httpリクエストを発行するにはどうしたらよいでしょうか？ (1)前者：httpリクエストの例 POST /hoge.cgi HTTP/1.1 CONTENT_LENGTH: 285 CONTENT_TYPE: multipart/form-data; boundary=---------------------------7d8ea171f055c ～中略～ -----------------------------7d8ea171f055c Content-Disposition: form-data; name="arg1" -----------------------------7d8ea171f055c Content-Disposition: form-data; name="data"; filename="" Content-Type: application/octet-stream -----------------------------7d8ea171f055c-- (2)後者：httpリクエストの例 POST /hoge.cgi HTTP/1.1 CONTENT_LENGTH: 11 CONTENT_TYPE: multipart/form-data; charset=UTF-8 ～中略～ arg1=&data=
- ベストアンサー
- JavaScript
PerlでCGIを制作している初学者です。
PerlでCGIを制作している初学者です。画像付きのアンケートを作ろうとしているのですが、その際のページの切り替えがうまくいきません。普通に1ページに、ボタンやフォームを配置したアンケートは作れるのですが、自身が作りたいのは、紙芝居のごとく、 1ページ目に画像とアンケートの選択肢であるチェックボックスがあり、チェックボックス入力後に回答を押すと同時に、配列へチェックボックスの答えを格納し、 2ページ目のアンケートへ移るというものです。 1ページ目や2ページ目のhtmlファイルならびにcgiファイルは用意できているのですが、 1ページ目の返答ボタンをおした際の処理の記述がわかりません。例えば、 1ページ目 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META http-equiv="Content-Style-Type" content="text/css"> <TITLE></TITLE> </HEAD> <BODY> <CENTER> <img src="sample.jpg" alt="01" width=800px height=600px> <FORM method="POST" action="post.cgi"><BR> <INPUT type="radio" name="answer" value="010" checked>complete mismatch　 <INPUT type="radio" name="answer" value="011">mismatch　 <INPUT type="radio" name="answer" value="012">neutral　 <INPUT type="radio" name="answer" value="013">match　 <INPUT type="radio" name="answer" value="014">complete match　 <BR> <BR> <INPUT type="submit" name="submit" value="　SEND　"> <BR> </FORM> </CENTER> </BODY> </HTML> と記述し、 post.cgi #!/perl/bin/perl print "Content-type: text/html\n"; print "\n"; read(STDIN, $data, $ENV{'CONTENT_LENGTH'}); print "REQUEST_METHOD : $ENV{'REQUEST_METHOD'}<br>\n"; print "CONTENT_LENGTH : $ENV{'CONTENT_LENGTH'}<br>\n"; print "DATA : $data<br>\n"; としたとき、 1ページ目でsample.jpgについての意見をラジオボタンで選択し、それをpost.cgiにて表示させるというサンプル（ここを後で変数の格納に変えます）ですが、この時、1ページに似た構成の2ページ目のアンケートへのリンクの仕方がわかりません。イメージ的には、 1ページ目表示→回答を配列[0]に格納→2ページ目表示→回答を配列[1]に格納→・・・最終的には、各ページの回答を記録した配列を出力します。以上のようなことを実現したいのです。ＷＥＢなどを探してみたのですが、1ページにボタンやフォームがたくさん埋め込まれたものは発見したのですが、この紙芝居的なアンケートのヒントになりそうなものが見つかりませんでした。アドバイスや、忠告などで結構ですので、回答を頂けると幸いです。
- 締切済み
- CGI

標準入力からデータが読込めない

標準入力からデータが読込めない