前半後半
[id:tomyhero:20070426:1177583843]
use utf8; use DateTime; use DateTime::Format::Strptime qw(strptime); sub fs_fazzy_birthday { my $age = (DateTime->today - strptime('%Y-%m-%d' => shift))->years; return sprintf '%d0代%s' => int($age / 10), $age % 10 < 5 ? '前半' : '後半'; }
単に読みづらくしただけとも言う.