ベストアンサー

どこが悪いのかわかりません！すごい簡単な実験なのですが…

2005/05/21 10:39

まず、index.htmlを作成しました。これは正常にアップもブラウザ展開もできました。そのソースは以下です。ファイル名はindex.htmlです。 <HTML> <HEAD> <TITLE>アンケート</TITLE> </HEAD> <BODY> <FORM METHOD="POST" ACTION="keisan.cgi"> 身長と体重をいれましょう <INPUT TYPE="TXET" SIZE="50" NAME="SINTYOU"> <INPUT TYPE="TXET" SIZE="50" NAME="TAIJYUU"> <INPUT TYPE="SUBMIT" SIZE="50" VALUE="OK!"> <INPUT TYPE="RESET" SIZE="50" VALUE="No!"> </BODY> </HTML> 次にcgiを作成しました。上記のSINTYOUとTAIJYUUの数値を足算した結果を出す、ものすごく簡単なcgiです。そのソースは以下です。ファイル名はkeisan.cgiです。 #!/usr/bin/perl #REQUIRE 'STDIN.TXT'; #KEISANN $SINTYOU=$FORM{'SINTYOU'}; $TAIJYUU=$FORM{'TAIJYUU'}; $GOUKEI=$SINTYOU+$TAIJYUU PRINT "CONTENT-TYPE:TEXT/HTML\n\n"; PRINT "<HTML><HEAD><TITLE>AAAA</TITLE></HEAD>"; PRINT "<BODY> <$GOUKEI></BODY></HTML>"; 以上です。パーミッション設定とか、パスは合っています。どこが間違っているのか教えていただければ幸いです。数学で言えば、『1+1は何？』というような、めちゃくちゃ初心者的な馬鹿なミスがどこかに潜んでいるはずなのですが、どこを調べてもわかりません。お願いします。

investorgoo
お礼率49% (61/124)

CGI
回答数4
ありがとう数3

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

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

ベストアンサー

steel_gray
ベストアンサー率66% (1052/1578)

2005/05/21 17:58 回答No.4

> サーバ内部でエラーが発生しました。 cgiスクリプトの2行目に use CGI::Carp qw(fatalsToBrowser); と、追加すると（実行環境が悪いとだめですが）詳細なエラーが表示されるようになります。 > 以上です。と、ありますが、省略している部分もありますよね？本当にこれで全てだとしたら $FORM{'SINTYOU'}や$FORM{'TAIJYUU'}には値が入っていません。送信されたフォームの内容を受取る処理が必要です。そんな事しってる…ということでしたら失礼。どこかのスクリプトのみようみまねで$FORM{…}には値が入っていると勘違いしてる人もたまにいるので。ついでに。 <$GOUKEI> これもHTMLとして問題あり。これではCGIとして動くようになっても結果が画面に表示されない。ブラウザに知らないタグだと認識され、無視されてしまう。

質問者

お礼 2005/05/22 01:45

有難うございました。私もその勘違いの一人です(^_-)-☆もっとHTMLやPerlやCGIの勉強しないとダメですね。HTMLだけで計算処理できるようになれば楽なのですが、世の中甘くないですね。

その他の回答 (3)

estea
ベストアンサー率44% (39/87)

2005/05/21 16:30 回答No.3

$GOUKEI=$SINTYOU+$TAIJYUU に ; が抜けてるのもそうだし， content-type の行もきになるけど，そもそも require とか print って大文字でも通ったっけ？

質問者

お礼 2005/05/22 01:48

有難うございました。早速試してみます。しかし、COMの世界はデリケートだぁ！

c_works
ベストアンサー率66% (6/9)

2005/05/21 14:35 回答No.2

$GOUKEI=$SINTYOU+$TAIJYUU; ここの最後のセミコロン抜けでは？あとindex.htmのformタグが閉じ忘れているような・・・ <FORM METHOD="POST" ACTION="keisan.cgi"> 身長と体重をいれましょう <INPUT TYPE="TEXT" SIZE="50" NAME="SINTYOU"> <INPUT TYPE="TEXT" SIZE="50" NAME="TAIJYUU"> <INPUT TYPE="SUBMIT" VALUE="OK!"> <INPUT TYPE="RESET" VALUE="No!"> </FORM>

質問者

お礼 2005/05/22 01:50

気付けばたいしたことの無い、マジックのトリックみたいですね。『校正』という仕事が成立している理由がよくわかります。有難うございました。

edomin
ベストアンサー率32% (327/1003)

2005/05/21 11:41 回答No.1

で、具体的にどういうエラーが出るのですか？ ※見たところ、セミコロンが足りないようですが・・・

質問者

補足 2005/05/21 12:59

以下のようなメッセージがサーバーから戻ってきます。残念ながら、サーバ内部でエラーが発生しました。「CGIプログラムの中の間違い」「または間違った設定」「完了できない要求」に遭遇し、処理を停止いたしました。まことに申しわけございませんが、上記エラーを修正の上、再度接続し直してみてください。

関連するQ&A

パスワードはどこですか？
自分でパスワードを決めると思うのですが、さっぱりです。どこに書けばいいのか教えてください知識がある方にとっては簡単だと思いますがどうぞよろしくお願いします。 #▼入室フォーム###### sub FM{ print "Content-type: text/html\n\n"; print "<html><head><title>$TITLE</title></head><body><form method=post action=$ADMIN_CGI><input type=hidden name=M value=C>管理室<hr>\n"; print " 管理者ＩＤ<BR><input name=ID'' size=8><BR> パスワード<BR><input name=PASS'' size=8><BR> <input type=submit value=入室>\n"; print "</form></body></html>\n"; exit; }
- ベストアンサー
- CGI
ＣＧＩでフォームからの入力内容を表示されない。
初歩的な質問ですみません。自宅サーバを使っています。 ■ActivePerl 5.8.8 Build 822 ■httpd142p ------------------------------ ■httpd142p ┗■cgi-bin 　┣■cgi-lib.pl 　┣■test.cgi 　┗■test.html ------------------------------- ＣＧＩは動作します。一行目のパスもあっています。 --------------------------- 【test.cgi】 #!C:/perl/bin/perl #require './cgi-lib.pl'; #&ReadParse(*MYDATA) print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<TITLE>RESULT</TITLE>\n"; print "<BODY>\n"; print "氏名 = $MYDATA{'simei'}\n\n"; print "住所 = $MYDATA{'jyusyo'}\n"; print "</BODY>\n"; print "</HTML>\n"; exit; -------------------------------- 【test.html】 <HTML> <HEAD> <TITLE>TEST</TITLE> </HEAD> <BODY> <P> <FORM ACTION="test.cgi" METHOD="POST"> 氏名:<INPUT TYPE="text" NAME="simei"> 住所:<INPUT TYPE="text" NAME="jyusyo"> <INPUT TYPE="submit" VALUE="送信"> <INPUT TYPE="reset" VALUE="リセット"> </P> </FORM> </BODY> </HTML> ---------------------------------- ■実行結果氏名 = 住所 = ---------------------------------- どなたかご教授ください。
- ベストアンサー
- CGI
Perlがサーバー上でうごきません
htmlファイルには <html> <form action="form2.cgi" method="get"> 食品名１<input type="text"name="form1"> <br> 食品名２<input type="text"name="form2"> <input type="submit"value="送信"> </form> </html> cgiファイルには #! /usr/bin/perl require "cgi-lib.pl"; &ReadParse(); print "Content-type:text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print "<title>フォーム</title>\n"; print "</head>\n"; print "<body>\n"; print "おいしい$in{'form1'}\n; print "まずい$in{'form2'}\n; print "</body>\n"; print "</html>\n"; exit; cgi-lib.plはサーバーにいれております。どうしてうごかないのでしょうか。
- ベストアンサー
- 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
FORMを教えてください
全くの素人で、どなたか教えて下さい。 <HTML> <TITLE>TEST</TITLE> <BODY> <FORM ACTION="test.cgi" METHOD="POST"> 氏名<INPUT TYPE="TEXT" NAME="name"> 住所<INPUT TYPE="TEXT" NAME="tokoro"> <INPUT TYPE="Submit" value="データ送信"> <INPUT TYPE="Reset" value="リセット"> </FORM> </BODY> </HTML> 名前と住所を記入して送信ボタンを押したら記入した内容が表示されるCGIプログラムを教えて下さい。 #!/usr/local/bin/perl print "Content-Type: text/html"; print "<html>\n"; print "<head><title>TEST</title></head>\n"; print "<body>\n"; #受け取ったデータを表示する print "氏名=$in{'namae'}\n"; print "住所=$in{'tokoro'}\n"; print "</body>\n"; print "</html>\n"; exit; とした場合　氏名=　住所=　しか表示されません。何が足りないのでしょうか？
- 締切済み
- CGI
FORM ACTION～POST使用時について
こんにちは。お世話になります。 cgiファイルから、FORM ACTION～POST⇒submitで自分自身を呼び出す時に、INPUT TYPE=\"text\"を11個間に入れると呼び出せません。（10個の場合はうまくいきます） FORM ACTION～POSTは文字数制限がないと、本を見てもかいてあるのですが、なにか理由があるのでしょうか。ご存知の方、ご教授願えたら幸いです。よろしくお願いいたします。抜粋したソースを下記に記します。 ------------------------------------------------------------- #障害対応情報項目テキストボックス print "<H5>【障害対応情報項目】</H5>\n"; print "<FORM ACTION=\"../cgi-bin/serch_e-001.cgi\" METHOD=\"POST\">\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-2\" VALUE=\"$$selectdata[0][7]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-3\" VALUE=\"$$selectdata[0][8]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-4\" VALUE=\"$$selectdata[0][9]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-5\" VALUE=\"$$selectdata[0][10]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-6\" VALUE=\"$$selectdata[0][11]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-7\" VALUE=\"$$selectdata[0][12]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-8\" VALUE=\"$$selectdata[0][13]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-9\" VALUE=\"$$selectdata[0][13]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-13\" VALUE=\"$$selectdata[0][18]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-14\" VALUE=\"$$selectdata[0][19]\" SIZE=30>\n"; print "<INPUT TYPE=\"text\" NAME=\"S1-15\" VALUE=\"$$selectdata[0][19]\" SIZE=30>\n"; print "<INPUT TYPE=\"submit\" NAME=\"button\" VALUE=\"新規検索\">\n"; print "<INPUT TYPE=\"submit\" NAME=\"button\" VALUE=\"更新\">\n"; print "<INPUT TYPE=\"hidden\" NAME=\"no\" VALUE=\"$$selectdata[0][0]\">\n"; print "</FORM>\n"; ------------------------------------------------------------
- ベストアンサー
- 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
C言語でCGI
初めてC言語でCGIをやるわけではないのですが、わからないことがあるので質問させていただきます。 http://www2k.biglobe.ne.jp/~motoi/cdecgi.html このサイトを参考に話を進めさせていただきます。まず、htmlで <HTML> <HEAD> <TITLE>テストページ</TITLE> </HEAD> <BODY BGCOLOR=#a0d0ff> <FORM METHOD="get" ACTION="test2.cgi"> <INPUT TYPE="text" NAME="fieldname" SIZE="50"><BR> <INPUT TYPE="text" NAME="fieldname2" SIZE="50"><BR> <INPUT TYPE="text" NAME="fieldname3" SIZE="50"><BR> <INPUT TYPE="submit" VALUE="書き込み"> </FORM> </BODY> </HTML> と書き、C言語で #include <stdio.h> #include <stdlib.h> #define getenv1(a) ((pdata=getenv(a)) ? pdata : "(NULL)") main() { int len; printf("Content-type: text/html\n\n"); printf("<HTML><HEAD></HEAD><BODY>\n"); printf("%s<BR>\n",getenv("QUERY_STRING")); printf("</BODY></HTML>\n"); } と書きます。それからコンパイルを実行し、パーミッションも変更して実行を WEBサーバを作らずに実行するとファイルのダウンロードが始まります。(ファイル名はtest2.cgi) WEBサーバが無ければ文字をCGIに表示することは無理なのでしょうか？教えてください。お願いします。
- ベストアンサー
- CGI
Locationを使いたいのですが
はじめて質問します。よろしくお願いします。フォームからデータを受け取って、なんらかの処理をしてから、 locationで別のページへジャンプしたいのです。下のソースで、ローカル（win95）では正常に動いたのですが、サーバーに移すと送信後のtest.cgiがエラーになってしまいます。 text.txtへの書込みはちゃんと行われています。原因がわからなくて困っています。 locationの使い方が間違っているのでしょうか？ ↓↓　test.cgiソース　↓↓ ------------------------------------------------------------ #!/usr/bin/perl require 'jcode.pl'; &decode; if ($FORM{'cmd'} eq "regist") { &write; # ファイル書込み print "Location: index.html\n\n"; } else { print <<END; Content-type: text/html <HTML><HEAD><TITLE>タイトル</TITLE></HEAD> <FORM ACTION="test.cgi" METHOD="POST"> <INPUT TYPE=TEXT NAME="message" VALUE=""> <INPUT TYPE=SUBMIT NAME="submit" VALUE="送信"> <INPUT TYPE=HIDDEN NAME="cmd" VALUE="regist"> </FORM> </BODY></HTML> END } exit; # ファイル書込み sub write { open OUT, ">test.txt"; print OUT "$FORM{'message'}\n"; close OUT; }
- ベストアンサー
- Perl
html →perlへフォームを渡そうとしてますが
独学でmacでパールを勉強しています。始めてからまだ１週間すこしくらい。教科書読みながら、 CGIへフォームを渡す所の段階まで進んできました。現段階で、htmlからperlへフォームを渡そうとしているのですが、上手く行きません。状況としては、htmlのフォームを入力して、登録を押す。成功であれば→実行結果が表示されるはずなのですが、現段階ではFinderがその実行htmlの場所を開くだけという形になっています。下記は実験用に使っているソースです。ーーーーーーーーーーー htmlは <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <title>test</title> <style type="text/css"> </style> </head> <body> <h1>メンバーズリスト</h1> <form method="post" action="form.cgi"> <p> 名前:<br/> <input type="text" name="name"/> </p> <p> 性別: <input type="radio" name="sex" value="male" checked>男 <input type="radio" name="sex" value="female">女 </p> <input type="checkbox" name="megane">メガネを付けてる </p> <p> <select name="kankei"> <option value="yuujin">友人 <option value="kaisya">会社関係 <option value="sonota">その他 </select> </p> <p> 住所: <textarea name="jyusyo" rows="5" cols="40" ></textarea> </p> <p> <input type="submit" value="登録"/><input type="reset" value="クリア"/> </p> </form> </body> </html> ーーーーーーーーーーーーーーーーー perlは #!/usr/bin/perl require 'cgi-lib.pl'; &ReadParse(*form); $name = $form{'name'}; $sex = $form{'sex'}; $megane = $form{'megane'}; $kankei= $form{'kankei'}; $jyusyo = $form{'jyusyo'}; print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>情報受け取り</TITLE></HEAD>\n"; print " <BODY>\n"; print "<H1>情報受け取り</H1><HR>\n"; print "名前:${name}<BR>\n"; print "性別:${sex}<BR>\n"; print "めがね:${megane}<BR>\n"; print "関係:${kankei}<BR>\n"; print "住所${jyusyo}<BR>\n"; print "</BODY>\n"; print "</HTML>\n"; __END__ です。ちなみに　localhost上で同一ファイルに入れて、動かしてます。ご確認の上、ご助言ください、 perlの教科書に書いてあった構文は、 htmlの学習をするために使ってきたものと全く違ったため、要点だけ残す形で、再度書いたものです。 htmlの文章がおかしいのか、perlがおかしいのか、頭が変になりそうです。お助けください。
- ベストアンサー
- Perl

どこが悪いのかわかりません！すごい簡単な実験なのですが…