Subscribed unsubscribe Subscribe Subscribe

17歳教ワンライナー

Perl OneLiner

いちおう思いついたものを書いておく。
何ヶ月と何日、はDate::Calcモジュールでは簡単には出せなそう。

$ perl -MDate::Calc=:all -e'$ARGV[0]+=17;printf"17歳と%d日$/",Delta_Days@ARGV,Today' 1982 12 10   
17歳と3428日

追記:月と日

やっぱりDateTimeモジュールを使うのが手堅い気がした。

perl -MDateTime -le'$_=DateTime->now-DateTime->new(day,pop,month,pop,year,17+pop);printf"17歳と%dヶ月と%d日$/",$_->delta_months,$_->delta_days' 1982 12 10
17歳と112ヶ月と19日


でもたぶんこれ、時差を吸収できてないな…時間帯によっては1日ずれるかも?