Time::Piece::Month(来月を求める)

 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"

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2011-06-11 (土) 18:36:37