Perl/日付・時間処理/Date-Simle の変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/日付・時間処理/Date-Simle へ行く。
Perl/日付・時間処理/Date-Simle の差分を削除

* Date::Simple （日付のみだが扱い易い） [#b2656d73]
* Date::Simple（日付のみだが扱い易い） [#b2656d73]

 use Date::Simple qw/date/;

*** 作成 [#t1597bdf]
 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 );

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

** 加算減算 [#v4479ad3]
 my $tomorrow = Date::Simple->today + 1;
 say date(2000-01-01) - date('1999-01-01'); # 365

*** 比較 [#ae581938]
 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 ] )
   );


** 参考 [#v9921a25]
http://search.cpan.org/perldoc?Date::Simple