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

フォームデータ

END $n=int($FORM{number}/100000); if($n==110){ print "情報文化学科の"; }elsif($n==120){ print "情報システム学科の"; }else{ print "学科不明の"; } print "$FORM{name}さん、こんにちは"; print < END