my $date; # 現在日付 $date = localtime; print $date . "\n"; # 初日 $date = localtime(0); print $date . "\n";
>perl sample.pl Tue Jan 3 23:17:50 2012 Thu Jan 1 09:00:00 1970 >
