#ヘッダの出力とキャッシュ制御ヘッダー sub print_header { if($_[1]){ my (@wdays_en) = qw(Sun Mon Tue Wed Thu Fri Sat); my (@mons_en) = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); my ($sec,$min,$hour,$day,$mon,$year,$wday) = gmtime($_[1]); my $gmtime = sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT",$wdays_en[$wday],$day,$mons_en[$mon],$year+1900,$hour,$min,$sec); #Last-Modified: Mon, 30 Nov 2009 15:06:40 GMT print "Last-Modified: $gmtime\n"; }