- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- 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");
say [ $month200201->next_month->dates() ]->[0]->ymd; # "2002-02-01"
