Perl/日付・時間処理/DateTime のバックアップ(No.2) - yanor.net/wiki

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl/日付・時間処理/DateTime へ行く。
- 1 (2007-09-03 (月) 04:35:39)
- 2 (2007-09-03 (月) 06:58:51)
- 3 (2007-09-03 (月) 14:16:20)
- 4 (2009-06-20 (土) 09:45:56)
- 5 (2009-12-16 (水) 06:59:03)
- 6 (2011-06-11 (土) 05:56:31)

DateTime

DateTimeオブジェクトを作る

 $dt = DateTime->from_epoch(epoch => time() );
 $dt = DateTime->now();

DateTimeオブジェクトを加算・減算する

去年の年を求める。

 $dt = DateTime->now();
 print $dt->add(years => -1)->year;

DateTime::Durationオブジェクト（期間）を作る

期間を使って計算する。

 $dt2007 = DateTime->new(year=>2007);
 $dt2008 = DateTime->new(year=>2008);
 $duration = $dt2008 $dt2007;
 $dt2009 = $dt2008 + $duration;

DateTimeオブジェクトを比較する 1

 $dt2007 = DateTime->new(year=>2007);
 $dt2008 = DateTime->new(year=>2008);
 print "ok" if DateTime->compare($dt2008, $dt2007) ==  1;
 print "ok" if DateTime->compare($dt2008, $dt2008) ==  0;
 print "ok" if DateTime->compare($dt2007, $dt2008) == -1;

DateTimeオブジェクトを比較する 2

 $duration = $dt2007 - $dt2008;
 $duration->is_positive; # => 0
 $duration->is_negative; # => 1
 $duration->is_zero;     # => 0

参考