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; としてみた。っていういつ…

時間の帯です。 今のところ機能は…。 全体の時間から、部分的な時間を取り除いて、残った部分の時間を返すってくらいです。 スケジュール系で、残りの時間を確認したい時なんかに使えるかと。 use Time::Band; use Time::Piece; my $start = localtime()->st…