（Perl）ReadParseによるハッシュへの格納について

Question

PerlのReadPerseについて質問させてください。以下少々長いですが、過程を書きます。

タグにより、入力フォームのページをHTMLで作成したとします(form.html)。その際、と入力しておいて、別途form.cgiを作成するとします。 form.htmlには、タグ内のname属性で、それぞれ'weight' 'height' 'age'という三種類のデータを入力してもらって、取得するようにしています。そしてによる、登録ボタンを押すことで、 form.cgiに処理をさせるようにしています。 form.cgiの中身ですが、まず、最初の三行を書きます。 #!/usr/local/bin/perl require 'cgi-lib.pl'; &ReadParse(*form); となるのですが、わからないのが、三行目の &ReadParse(*form); です。サブルーチンReadParseを引数*formで、 cgi-lib.plから呼び出しているということはわかるのですが、いきなり*formという形で、ハッシュを登場させているあたりがわかりません。（この際、ハッシュ名の前の%を*に変えなければならないことは、一応知っております。理由はわかりませんが。）そこで質問なのですが、いきなり、ハッシュであるformを登場させていいものなのでしょうか？？以下、form.cgiの内容です。 #!/usr/local/bin/perl require 'cgi-lib.pl'; &ReadParse(*form); $name=$form{'weight'}; $sex=$form{'height'}; $megane=$form{'age'}; print "Content-type: text/html "; print " "; print " "; print "体重：${weight}
"; print "身長：${height}
"; print "年齢：${age}
"; print ""; print ""; _END_

ikspiari · Accepted Answer

まずは動いてよかったですね。

というか、ケアレスミス・・・
私の書いたソースでは%formではなくて、%inにデータが代入されます。

> $in{$key} = $value; 

ここです。ここを、

> $form{$key} = $value;

にすれば%formになりますが。

以前にも申し上げましたが私はAN HTTPDはよくわかりません。
私は基本的にFreeBSDとApacheな人なので・・・
このサービスは便利ですが、ちゃんと勉強したいと思ったらメーリングリストへの参加をお勧めします。
多少厳しい世界なので、あまりの「教えて君」は叱られますけどね。

コピペは・・・コピー元によるのではないでしょうか。
テキストファイルから普通にコピーするのは特に問題ないと思いますが、
ブラウザ上からのコピーなどはあまり思わしくないかもしれないです。

これからいろいろと勉強してみてください。
PerlだけじゃなくPHPやDBなど面白い事はいろいろありますよ。
頑張ってくださいね。

ikspiari · Answer

ログの内容からはPOSTが実行されている（言葉がなんか変です。）ではなくて、
POSTにより/form.cgiをリクエストされて正常な結果を返している事しかわかりません。
POSTでデータが送出されてるかまではわからないんです。
ですが、CGIが正常に実行されている事はわかりました。

<form method="GET" action="form.cgi">

で、再度試してみてもらえませんか？
GETの場合、データをQUERY_STRINGに付けるのでログで確認が可能です。
また、ブラウザ上のアドレスバーにも
form.cgi?key=value...
という表示がされると思います。

ikspiari · Answer

ログというのはHTTPDのログの事です。
Apacheでしたらaccess_logとerror_logというのがあり、
何時、何処から、何のファイルにアクセスされ、どういうステータスを返しているかが
リクエストされる都度に記録されていきます。
HTTPDやCGIの挙動がおかしい時にログをチェックするのはごく基本的な事です。

余談ですが、
通常、HTTPDのログは毎日更新して集計作業をします。

ikspiari · Answer

どうしようもないことなんてないです。
人間と違って2進数で動いてる機械はとても素直です。

ブラウザから
http://127.0.0.1/form.cgi?weight=100
と指定したらform.cgiは正常に動きますか？
form.htmlからCGIを起動した時のログも確かめてください。
200のステータスが返ってますか？

ikspiari · Answer

form.htmlから呼び出した時って、ほんとうにCGI実行されてるんですか？
ログ見てみましたか？
単純にform.htmlからCGIが起動してないだけのような気がするのですが・・・

<form action="http://127.0.0.1/form.cgi">

という感じでURLで指定してもダメでしょうか？

ikspiari · Answer

ごめんなさい、昨日あの後寝てしまいました。
常に説明が不足してまして申し訳ございません。

環境変数（%ENV）というのはその名の通りサーバの情報（環境）を持つ変数です。
例えば、
http://127.0.0.1/env.cgi?key=value
を実行した時に出力結果として
QUERY_STRING=key=value
と出れば正常です。
GETで送出した場合CGIは環境変数QUERY_STRINGからデータを読み込みます。
その前に書いたソースでそれは分かると思います。

if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) { 
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); 
} else { 
$buf = $ENV{'QUERY_STRING'}; 
} 

上記処理は環境変数REQUEST_METHODがPOST*じゃない*と$bufに環境変数QUERY_STRINGを代入しています。
つまり通常はGETだった場合という解釈です。
?はセパレータなので省略されます。

私はAN HTTPDはわからないのですが、
挙動がおかしいようなので、アンインストールして最新バージョンをインストールするとか、
この際Apacheに変えるとかしてみてはどうでしょうか？
CGIを動かしてるのはHTTPDですから・・・
もう一度だけ、
http://127.0.0.1/env.cgi?key=value
で、QUERY_STRINGに値が入ってるか確認してみてください。

ikspiari · Answer

説明下手ですみません。
ん～、ローカルなのでブラウザ立ち上げて、

http://127.0.0.1/form.cgi?key=value...

ですかね？
127.0.0.1
というのは「ループバックアドレス」と言ってlocalhostのIPアドレスです。
ソースの挿入位置は下の回答を参考にしてください。

すみませんが、頑張ってみてください。

ikspiari · Answer

更に補足です。
環境変数って出力されますか？

#!/usr/local/bin/perl

print "Content-Type: text/html

";
while ( ($key,$val) = each(%ENV) ) {
print "$key=$val<BR>
";
}
exit();

上記ソースをenv.cgiかなんかで保存して何か出力されるか試してみてください。
後、先ほどのソースは、

require 'cgi-lib.pl';
&ReadParse(*form);

の部分と置き換えてください。

ikspiari · Answer

自分でソース書いた方が早いかもしれませんね。
以下のソースでcgi-lib.plと*基本的*には同じ働きをします。
%inに格納しています。

if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
} else {
$buf = $ENV{'QUERY_STRING'};
}
foreach ( split(/&/,$buf) ) {
tr/+/ /;
($key,$value) = split(/=/);
$value =~ s/%(..)/pack('c',hex($1))/eg;
$in{$key} = $value;
}

これで動かないようでしたら、HTTPDに問題があるかと思われます。
後はブラウザからアドレスを直接入力してGETで動作確認してみてください。
～/form.cgi?key=value...
って、感じで。

ikspiari · Answer

すみません、お返事が遅くなりました。
「ローカルで実行されない。」という意味がそもそもわからないのですが。
それはHTTPDが500のコードを返すという事でしょうか？
全てのファイルを同一のディレクトリに入れているとの事ですが、
form.htmlのCGIへのパスはあってますか？

Apacheは英語ですが、そんなに難しくないですよ。
是非、挑戦してみてください。
OSもLinuxとかFreeBSDを入れると幸せになれます。;-)
# この言い回し少し古いかも...。

（Perl）ReadParseによるハッシュへの格納について

まずは動いてよかったですね。

ログの内容からはPOSTが実行されている（言葉がなんか変です。

ログというのはHTTPDのログの事です。

どうしようもないことなんてないです。

form.htmlから呼び出した時って、ほんとうにCGI実行されてるんですか？

ごめんなさい、昨日あの後寝てしまいました。

説明下手ですみません。

更に補足です。

自分でソース書いた方が早いかもしれませんね。

すみません、お返事が遅くなりました。

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

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

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

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