Search A.I. Perl Q&A

・GetやPostのパラメータを取得する関数 Perlの場合、少々面倒ですが、自分でパラメータ文字を解析する必要があります。 ▼サンプル---------------------------- sub GetPara { my($query_string); #// エンコードされたパラメータ全体 my(@a, $a); #// エンコードされたパラメータを分解したもの my($name, $value); #// デコードされたパラメータ my(%in); #// ハッシュ配列 #// パラメータの読み込み if ($ENV{"REQUEST_METHOD"} eq "POST") { #// POSTなら標準入力から読み込む read(STDIN, $query_string, $ENV{"CONTENT_LENGTH"}); } else { #// GETなら環境変数から読み込む

[MIZ]

復号可能な暗号化