- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- Perl/日付・時間処理/DateTime へ行く。
DateTime
DateTimeオブジェクトを作る
$dt = DateTime->from_epoch(epoch => time() ); $dt = DateTime->now();
DateTimeオブジェクトに加算・減算する
去年の年を求める。
$dt = DateTime->now(); print $dt->add(years => -1)->year;
DateTime::Durationオブジェクト（期間）を作ってDateTimeオブジェクトに加算・減算する
期間を使って計算する。
$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
文字列からDateTimeオブジェクトを作る
DateTime::Format::Strptimeを使う。
use DateTime::Format::Strptime;
$strp = new DateTime::Format::Strptime(pattern => '%F %T');
$dt = $Strp->parse_datetime('2007-04-01 01:00:10');
参考
