>  2002/06/08 (土) 17:26:02        [mirai]
> > bin.cgiはPerlかい?
> そうです(;´Д`)

昔作ったLast-Modified:出力あった(´ー`)こんなんで頼む

	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("test.pl"); # stat(_);
#	$mtime = -M "test.pl";
#	print "$mtime\n";
	($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = gmtime($mtime);
	$sec  = "0$sec"  if ($sec  < 10);
	$min  = "0$min"  if ($min  < 10);
	$hour = "0$hour" if ($hour < 10);
	$day  = "0$day"  if ($day  < 10);
	$year += 1900;
	$smon = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon];
	$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];
	print "Last-Modified: $week, $day $smon $year $hour:$min:$sec GMT\n";

参考:2002/06/08(土)17時21分06秒