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 (2740d)