日付の操作:DateTimeオブジェクト

Perlで日付の操作を簡単に行えるモジュール。

use DateTime;

my $dt = DateTime->new(
    time_zone => 'local',
    year      => 2008,
    month     => 8,
    day       => 4,
    hour      => 15,
    minute    => 0,
    second    => 0
);

# 日の加算
my $dt_tommorow = $dt->clone()->add( days => 1 );

# 出力
my $ymd = $dt->ymd; # yyyy-mm-dd
my $ymd_slash = $dt->ymd('/'); # yyyy/mm/dd