Perl/日付・時間処理/Time-Piece-Month のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl/日付・時間処理/Time-Piece-Month へ行く。
- 1 (2011-06-03 (金) 17:38:27)
- 2 (2011-06-03 (金) 17:39:23)

来月を求める

Time::Piece::Month

 my $month       = Time::Piece::Month->new( Time::Piece->new() );
 my $month200201 = Time::Piece::Month->new("2002-01-03");
 my @dates = $month200201->next_month->dates();
 say [ $month200201->next_month->dates() ]->[0]->ymd; # "2002-02-01"