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,
  };
}