#! /usr/bin/perl # フォームデータ取得 if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query = $ENV{'QUERY_STRING'}; } # フォームデータ復元 @qu = split(/&/, $query); foreach(@qu) { ($key, $value) = split(/=/); # 文字のデコード $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $FORM{$key} = $value; } # サーバ出力 print < フォームデータ

フォームデータ

END foreach $key (keys %FORM) { print "\n"; } print < END
フォーム要素名データ
$key$FORM{$key}