Perl/日付・時間処理/Time-Piece-Month のバックアップの現在との差分(No.1)

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

追加された行はこの色です。
削除された行はこの色です。

* 来月を求める [#ld717226]
* Time::Piece::Month（来月を求める） [#ld717226]

** Time::Piece::Month [#oe115e65]
 my $month       = Time::Piece::Month->new( Time::Piece->new() );
 use Time::Piece;
 use TIme::Piece::Month;
 
 my $this_month  = Time::Piece::Month->new( Time::Piece->new() );
 my $month200201 = Time::Piece::Month->new("2002-01-03");
 
 my @next_month_dates = $this_month->next_month->dates();
 my $next_month_1st   = [ $this_month->next_month->dates() ]->[0];
 
 say $next_month_1st->ymd; # "20XX-XX-01"

 say [ $month200201->next_month->dates() ]->[0]->ymd; # "2002-02-01"