今日のDSL - TokuLog 改めB日記
2 users
use DateTime; use Time::Duration::Parse; use DateTime::Duration; sub say { my $s = shift; $s =~ s/ (ago)//; my $op = $1; if ($op eq 'ago') { my $now = DateTime->now(); my $dt = $now->clone->subtract(seconds => parse_duration($s)); print $dt; ... 続きを読む
