2007-07-18 生年月日から年齢を求める Perl 例1981年6月10日生まれの人の2007年7月19日の時点での年齢。 $ perl -e ‘print int( ( 20070719 - 19810610 ) / 10000 ), "\n"’ $26 有名か?知らなかった。