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;
としてみた。っていういつのだかわからぬメモがあったので、アップしてみた。
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;
としてみた。っていういつのだかわからぬメモがあったので、アップしてみた。