ある期間の日数を求める

Perl

Date::CalcモジュールのDelta_Days関数を使う。
普通の感覚なら2010年は1/1〜12/31のことで、365日あるものと思う。
プログラムでは都合上最後にインクリメントしないといけない。

use strict;
use warnings;
use Date::Calc qw/Delta_Days/;

my @from = qw/2010 01 01/;
my @to   = qw/2010 12 31/;
my $dif = Delta_Days(@from, @to);

print ++$dif;