Perlコーディング初心者質問スレ Part 57

Perlコーディング初心者質問スレ Part 57at PHP

Perlコーディング初心者質問スレ Part 57 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

100:nobodyさん
 08/03/12 20:55:51 
>>99 
POSTで送ることがわかってるなら調べれば簡単だと思うんだが。 
CGI.pmとか使うと簡単にできる

101:nobodyさん
 08/03/12 21:02:36 
送信出来ないのでなく受信したあとの処理が出来てないに1000ペリカ

102:nobodyさん
 08/03/12 21:04:45 
>>100様 
迅速なレス、感謝します。 
浅学でお恥ずかしいのですがCGI.pmについてこれから調べてみます。 
ありがとうございます。

103:nobodyさん
 08/03/12 21:10:03 
>>101様 
レスありがとうございます 
受信後の処理は、次のような処理を記述しております 
 
if ($ENV{'REQUEST_METHOD'} eq "POST") { 
    read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); 
} else { 
    $form = $ENV{'QUERY_STRING'}; 
} 
@pairs = split(/&/, $form); 
foreach (@pairs) {  
    ($name, $value) = split(/=/, $_); 
    $value =~ tr/+/ /; 
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
    $value =~ s/>/>/g; 
    $value =~ s/</</g; 
    &jcode'convert(*value, 'sjis'); 
    &jcode'convert(*name, 'sjis'); 
    $FORM{$name} = $value; 
}  
 
GETだとうまく処理されるので2行目の 
read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); 
が怪しそうですね。 
CGI.pm？で調べられるのかどうなのかまだよくわかっておりませんが 
まずいところの見当すらつかなかったので助かります。 
ありがとうございます。

次ページ