2006-11-23 日付表示 code よく使うのでメモ #!/usr/bin/perl{ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $mon++;$year+=1900; print "$year/$mon/$mday $hour:$min:$sec\n"; }