################################################ # my.pl ################################################ ######################################### #現在時間を得る sub get_now_japan_time { $now_time = time() + 9*60*60; @timearray = gmtime($now_time); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = @timearray; $now_sec = $sec; $now_min = $min; $now_hour = $hour; $now_mday = $mday; $now_mon = $mon + 1; $now_year = $year; $now_yday = $yday; } ######################################### #htmlトップの表示 sub make_top { print "Content-type: text/html\n\n"; print "\n"; print "
\n"; print "$type\n"; print "