ベストアンサー

意味を教えてください（CGI）

2009/05/14 13:33

CGIの勉強をしています。以下の意味を教えてください。・&error("2222");←"2222"の意味・&error("サーバーエラー。#101");←#101の意味 ----------------------------------- &decode; if($orden eq 'enviar' || $preview == '0'){ &enviar; } &previsto; &error("2222"); sub decode{ if ($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }else{ &error("サーバーエラー。#101"); }

nkmyr
お礼率67% (403/600)

CGI
回答数5
ありがとう数1

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

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

ベストアンサー

ralf124c
ベストアンサー率52% (232/446)

2009/05/14 16:34 回答No.2

これは開発時デバッグ用のトラップだと思います。ざっと見た感じ実際には実行されないと思います。全体としてはメールフォームのCGIですね。メソッドで受信したデータの中で「enviar(スペイン語で送信の意)」が有れば内容を成型して送信。そうでないなら「previsto(これもスペイン語で事前表示[直訳]なので確認の意)」。ここでprevistoの内部ではreturnも無くexitで締めくくられていますので(enviarも同じく)これ以降には処理が移りません。だいたい変数名とか関数名がその役割を表すように作る場合が多いのですが、ほとんどスペイン語で書かれているので一般の方には何じゃこりゃ状態かと思います。他の単語は atencion:注目 cabeza:ヘッダ(頭) inicio:初期 contenido:内容(コンテンツ) こんなとこでしょうか。なぜかdecodeは英語ですね・・・スペイン語だとさしずめdecodificarでしょうか。

その他の回答 (4)

lowrider_2005
ベストアンサー率40% (1520/3748)

2009/05/14 17:13 回答No.5

No1です。ほかの回答者の通り、その文字列自体にプログラム的な意味はないです。ここで指定された「2222」とか「サーバーエラー。#101」という文字列が、errorサブルーチンの中の print "<font color=#ff0000>$atencion</font><p>"; の$atencionに置き換えられるだけです。要はデバッグ用につけた文字で、「あ、#101てことはあそこがエラーだな」とわかりやすくしてるだけではないかと。

質問者

お礼 2009/05/14 21:43

皆様、教えていただき、どうもありがとうございます。そうですか、無意味なんですか… これを作った人の意図が分からないですね。スペインに住んでいるそうなのでスペイン語が含まれておりました。鋭いです。

ralf124c
ベストアンサー率52% (232/446)

2009/05/14 16:53 回答No.4

本当にたびたびで申し訳ありません。 "#101"については「サーバエラー」がたくさん有ったら、どこの処理でエラーになったかわからないので番号を振っているんだと思います。番号の命名規則は作った方に聞いてみないとわかりません。100番台は入出力900番台はメール書式関連とか、ステップの行番号にしたりとかいろいろ自分で考えてエラー時にどの部分でエラーが発生したのかを目視する為だけだと思います。

ralf124c
ベストアンサー率52% (232/446)

2009/05/14 16:39 回答No.3

多重回答すいません。 "2222"の意味について書き忘れてました。単純に動作確認の文字列だと思いますので意味は何も無いと思います。

lowrider_2005
ベストアンサー率40% (1520/3748)

2009/05/14 15:09 回答No.1

ここだけ切りだされても・・・ errorサブルーチンを見れば何かヒントがあるのではないでしょうか？

質問者

補足 2009/05/14 16:01

返答をありがとうございます。 errorのサブルーチンを見ても、それらしきなものが見当たりませんでした。サイトにアップしておきましたので教えてくださればありがたいです。 http://hotpegasus.bov.jp/cgi.txt

関連するQ&A

リクエストパラメタを一括置き換え
リクエストパラメタを一括置き換え if( $ENV{'REQUEST_METHOD'} eq "GET" ) { $buffer = $ENV{'QUERY_STRING'}; } else { read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} ); } %req_params = map { /([^=]+)=(.+)/ } split /&/, $buffer; 上記のように書いていて、リクエストされたものを置き換える時は次のように一個一個書いています。 $req_params{name} =~ s/&/&/g; $req_params{mail} =~ s/&/&/g; $req_params{url} =~ s/&/&/g; このリクエストされたパラメタを一括で置き換えするにはどうすればいいのでしょうか？例えば、上記の書き方で以下のようなことをしたいです。よろしくお願いいたします。 if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); } else { $buf = $ENV{'QUERY_STRING'}; } foreach ( split(/&/, $buf) ) { ($key, $val) = split(/=/); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg; $val =~ s/&/&/g; $req_params{$key} .= "\0" if (defined($req_params{$key})); $req_params{$key} .= $val; }
- ベストアンサー
- Perl
デコード処理について
sub decode { if ($ENV{'REQUEST_METHOD'} eq "POST") { if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); } read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } while (($k,$v) = each %in) { $v =~ s/&/&/g; $v =~ s/</</g; $v =~ s/>/>/g; $v =~ s/"/"/g; $in{$k} = $v; } } 上記の処理が、具体的にどうなっているのかよくわかりません。どなたか分かる方、説明をお願いします。
- 締切済み
- Perl
CGIファイル1つで掲示板
1つだけのファイルで一覧型の掲示板を作っています。 HTMLを表示するのもそれです。フォームで送信すると、自分のファイル自身にアクセスします。 $ENV{'CONTENT_LENGTH'}は受け取ることができたけど read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); では$bufferは空っぽでした。 1つのファイルでPOSTデータの送受信をするのは requireを使わないと無理ですか？
- ベストアンサー
- CGI
携帯用のメールフォームのMethod
ある、HP作成送付とを使って携帯用のメールフォーム（３機種対応）を作りましたが、既存のCGIがうまく稼動しません。マニュアルをみると、携帯用ではMethodをPOSTではなく、GETに指定しろ。と、有りますが、CGIのソースのどの部分を変更したらいいのか分かりません。一応、予測してPOSTと記載されているソースを全てGET に直したのですが、旨く、稼動しません。（「このCGIは直接稼動していません・・・」が表示される。if ($buffer eq '') ってどんな条件なんでしょうか？）携帯用のメールフォームのCGIを配布しているサイト、もしくは下記のソースで修正すべき点をご存知の方、教えてください！！お願いいたします。ソース-------------------- . . . #データ入力 if ($ENV{'REQUEST_METHOD'} ne "GET") { &error('エラー','標準入力 METHOD=GET を設定してください.<br><form method=get action=........>'); } read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if ($buffer eq '') { &error('エラー','このＣＧＩは直接起動されません.'); } $ref = $ENV{'HTTP_REFERER'}; $buffer2 = $ENV{'QUERY_STRING'}; if ($buffer2 ne '') { &error('エラー','標準入力 METHOD=GET に設定してください.<br><form method=get action=........>'); }
- ベストアンサー
- CGI
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
"ー"を含むとサーバーエラーになる
HTMLのShift_JISに合わせて、Jcode.plで日本語コード変換のeucをsjisに変更したのですが、"ー"が$FORM{'key'}に含むとサーバーエラーになります。どうしたら、sjisで"ー"など一部文字でエラーなく処理できるのでしょうか？アドバイスお願い致します。 if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $name2 = $name; $value2 = $value; $FORM2{$name} = $value; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); #←ここを変更
- ベストアンサー
- CGI
標準入力からデータが読込めない
現在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'} も文字数は取得できています。どうか宜しくお願い致します。
- ベストアンサー
- Perl
CGIでhtmlページを表示する
連日質問させていただいています。 CGI超初心者です。 htmlファイルにラジオボタンを設置し、 Aを選んだらhttp://www.a.html、それ以外を選んだらhttp://www.b.html というサイトを開くようなCGIを作成したいです。以下のようにやってみたのですがうまくいきません。どのように修正したらいいでしょうか？ #============================================ if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $str, $ENV{'CONTENT_LENGTH'}); } else { $str = $ENV{'QUERY_STRING'}; } foreach $i (split('&', $str)) { $i =~ tr/+/ /; $i =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; ($t1, $t2) = split('=', $i); $FORM{"$t1"} = $t2; } $q1 = $FORM{'radio'}; print "Content-Type: text/html; charset=Shift_JIS\n\n"; print "<html>\n"; print "<head></head>\n"; print "<body>\n"; if ($q1 eq "A") { print "Location: http://www.a.html\n\n"; } else { print "Location: http://www.b.html\n\n"; } print "</body>\n"; print "</html>\n"; exit; #============================================ 上記のようにすると、以下のように、ただ文字が表示されてしまいます。 Location: http://www.a.html #============================================ if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $str, $ENV{'CONTENT_LENGTH'}); } else { $str = $ENV{'QUERY_STRING'}; } foreach $i (split('&', $str)) { $i =~ tr/+/ /; $i =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; ($t1, $t2) = split('=', $i); $FORM{"$t1"} = $t2; } $q1 = $FORM{'radio'}; print "charset=Shift_JIS\n\n";←★ print "<html>\n"; print "<head></head>\n"; print "<body>\n"; if ($q1 eq "A") { print "Location: http://www.a.html\n\n"; } else { print "Location: http://www.b.html\n\n"; } print "</body>\n"; print "</html>\n"; exit; #============================================ ★部分が悪いのかなぁと思い、上記のように修正してみたり、（Content-Type: text/html; を削除してみました） ★部分を全部削除してみると Internal Server Error となってしまいます。よろしくお願いいたします！
- ベストアンサー
- CGI
CGIでフォームデータを取得できません
CGI（perl）の標準入力についてお伺いいたします。 PC上でテストし動作を確認したCGIをプロバイダのCGIサーバに移植しましたが、正常に実行終了するものの、標準入力によるフォームデータの取得ができません。フォームデータを受け取る変数が空になってしまいます。 PCとプロバイダのCGIサーバとでは、CGIスクリプトの記述方法が異なるのでしょうか。書籍、ネットをだいぶ調べましたが、解決策が見当たりませんでした。このような現象の原因について、お心当たりのある方がおられましたら、ご教示いただきたいです。 (1)PC動作環境 a.OS: Windows 7 b.ブラウザ : Interne Eexplorer 11 c.CGIサーバ: Apache 2.4 d.perl : Activeperl 5.20 (2)CGIスクリプト(標準入力の部分) 尚、フォームでは、method="POST"を指定しております。 # フォームデータの取得 if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query = $ENV{'QUERY_STRING'}; }
- 締切済み
- CGI
cgiでのデータ受信
すみません、これで最後にします・・・ http://okwave.jp/qa/q7445617.html 結局getによるデータ受信の方もできませんでした。やはりPOSTに戻ってやってみると、$ENV{'CONTENT_LENGTH'}の値は入っています。文字の長さが入っているということは、文字列が入っているだろうということなので、後は文字を読み込むだけのはずです。となると read(STDIN, $alldata, $ENV{'CONTENT_LENGTH'}); このコードが間違っているのでしょうか？
- ベストアンサー
- CGI

意味を教えてください（CGI）

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