Perlで翌月の月末を求め、yyyyMMddで表示する計算があったので対応。
知識がなかったんで何気にちょい時間がかかりました。PerlではこのDateTimeというライブラリがよさげ。
|
1 2 3 4 5 6 |
use DateTime; my $today = DateTime->now; my $from = DateTime->new( year => $today->year, month => $today->month , day=>1 )->add(months => -1, end_of_month => "preserve")->ymd('/'); my $next_month = DateTime->now->add(months => 1, end_of_month => "preserve"); my $to = DateTime->last_day_of_month( year => $next_month->year , month => $next_month->month )->ymd('/'); |
参考リンク
DateTimeを使って先月と先月の最終日を求める
Perlで日付・時間を操作 – DateTime モジュールの使い方
Time::Pieceでadd_monthsするときは月末の扱いに気をつける
