use strict; use warnings; #http://www.rfs.jp/sb/perl/05/localtime.html my $unix_time = 1236729600; my($sec ,$min ,$hour ,$mday ,$mon ,$year ,$wday ,$yday ,$isdst) = localtime($unix_time); $year += 1900; $mon++; print sprintf('%04s-%02s-%02…

use strict; use warnings; use Time::Local; my $year = 2009; my $mon = 3; my $mday = 11; my $hour = 0; my $min = 0; my $sec = 0; print timelocal($sec ,$min ,$hour ,$mday ,$mon - 1 ,$year); #http://www.rfs.jp/sb/perl/05/localtime.html __END_…