Date::Simple(日付のみだが扱い易い)

 use Date::Simple qw/date/;

作成

 my $today    = Date::Simple->today;
 my $date1    = Date::Simple->new('2000-01-01');
 my $date2    = Date::Simple->new( 2000, 1, 1 );
 my $date3    = date('2000-01-01');
 my $undef    = Date::Simple->new( 2000, 13, 32 );

表示

 say $date->format('%Y/%m/%d');
 say $date->year;
 say $date->month;
 say $date->day;
 say $date->day_of_week; # 0:日 ... 6:土

加算減算

 my $tomorrow = Date::Simple->today + 1;
 say date(2000-01-01) - date('1999-01-01'); # 365

比較

 if ( $date == "2000-01-01" ) { };
 if ( $date > [ 2000, 1, 1 ] ) { };
 my @sorted = sort { $a <=> $b }
   (
     date( [ 2000, 1, 3 ] ),
     date( [ 2000, 1, 1 ] ),
     date( [ 2000, 1, 2 ] )
   );

参考

http://search.cpan.org/perldoc?Date::Simple


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

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