翌月を取得する@Perl & Time::Piece

Time::SecondsのONE_MONTHが期待通りじゃなかったので…。

use Time::Piece;

my $t = localtime();
$mon = sprintf("%02d",$t->mon);
my $next_month_first_day = $t->strptime($s->year.$mon.$s->month_last_day,"%Y%m%d")+86400;

としてみた。っていういつのだかわからぬメモがあったので、アップしてみた。