#! /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 #時間の取得 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); printf("%04d-%02d-%02d
", $year+1900, $mon+1, $mday); printf("%02d:%02d:%02d
", $hour, $min, $sec); $n=int($FORM{number}/100000); if($n==110){ print "情報文化学科の"; }elsif($n==120){ print "情報システム学科の"; }else{ print "学科不明の"; } print "$FORM{name}さん、"; if($hour>=4 and $hour<=10){ print "おはようございます"; }elsif($hour>=11 and $hour<=17){ print "こんにちは"; }else{ print "こんばんは"; } print < END