生年月日から年齢を算出
福山雅治さんの年齢が知りたかったので、生年月日から年齢を算出するスクリプトを書いてみた。
まぁ、入力値のチェックとかやってないので。。。適当に。。。
#!/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歳にみえないなぁ〜