DateTime.pm使えないときの日付
同じの書くのめんどくさいので。
#------------------------------------------ # 日付情報取得 # - # $timestamp = 1308304821 or time; # - # $date = { # year => 1000, # month => 1, # day => 1, # hour => 1, # min => 1, # sec => 1, # }; #------------------------------------------ sub get_date { my $timestamp = shift || time; my ($sec, $min, $hour, $day, $month, $year) = (localtime($timestamp))[0..5]; #printf "%04d/%02d/%02d\n", $year + 1900, $month + 1, $day; return { year => $year + 1900, month => $month + 1, day => $day, hour => $hour, min => $min, sec => $sec, }; }