古い記事
ランダムジャンプ
新しい記事
その場しのぎプログラミング用の ad hoc な日付計算方法。
超非推奨なのでまともなプログラムには使わないように(Date::Calc や DataTime 等の専用モジュール使うべき)。

例として、中二日あける計算スクリプト:
#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;

my @ds = qw(20121230 20121231 20130101 20130102 20130104 20130107);

my $pre = 0;
foreach my $d (@ds) {
    die if not $d =~ /^(\d{4})(\d{2})(\d{2})/;
    my $cur = timegm(0, 0, 0, $3, $2-1, $1);
    print "$d";
    if ($cur - $pre <= 86400 * 2) {
        print " - skip\n";
        next;
    }
    print "\n";
    $pre = $cur;
}

実行結果:
20121230
20121231 - skip
20130101 - skip
20130102
20130104 - skip
20130107