時刻の計算

ブログがどの程度の頻度で更新されているかを調べるのに
少し調べてみた。二つの記事の更新日時を取得して差分を
求めれば、どれぐらい更新されていないかがわかるはず

DateTimeオブジェクトは演算子のオーバロードを行っており、
イメージに近い感じで日付の計算、比較が行える.

#!/usr/local/bin/perl
use strict;
use warnings;

use DateTime;

my $dt1 = DateTime->new(
    year   => 2010,
    month  => 3,
    day    => 15,
);

my $dt2 = DateTime->new(
    year   => 2009,
    month  => 12,
    day    => 15,
);

my $dt3 = $dt1 - $dt2;

print "Delta month ", $dt3->delta_months, "\n"; # Delta month 3

引き算の場合は DateTime::Durationオブジェクトが返される。
delta_months, delta_daysで月日の差分が求められます。これで
3ヶ月記事が更新されていないなんていうのが簡単に求められそう
ですね。