生年月日から年齢を算出

福山雅治さんの年齢が知りたかったので、生年月日から年齢を算出するスクリプトを書いてみた。
まぁ、入力値のチェックとかやってないので。。。適当に。。。

#!/usr/bin/env perl
use strict;
use warnings;
use Date::Calc qw/Delta_YMD Today/;

my $birth_day = <>;

my $year = substr($birth_day, 0, 4);
my $month = substr($birth_day, 4, 2);
my $day = substr($birth_day, 6, 2);

my ($t_year, $t_month, $t_day) = Today();

my ($Dy, $Dm, $Dd) = Delta_YMD($year, $month, $day, $t_year, $t_month, $t_day);

if($Dm < 0 or $Dd < 0) {
    $Dy -= 1;
}
print $Dy, "歳\n";

福山雅治さんの生年月日は、1969年2月6日みたいなんで、39歳という結果に。

いや、しかし39歳にみえないなぁ〜