- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- Perl/日付・時間処理/Time-Piece へ行く。
- 1 (2010-10-22 (金) 19:25:07)
- 2 (2010-10-22 (金) 20:02:06)
- 3 (2011-03-06 (日) 14:51:15)
- 4 (2011-06-03 (金) 18:32:40)
- 5 (2011-06-11 (土) 05:57:09)
Time::Piece
Time::PieceとTime::Seconds
- Time::Piece
- 日付・時刻（タイムスタンプ）を表す。
- Time::Seconds
- 時間（秒）を表す。
Time::Pieceオブジェクトを作る
現在時刻 ローカルタイム
my $now = Time::Piece->localtime(); # 現在時刻 my $epoch = Time::Piece->localtime(0); # 1970-01-01 09:00:00 タイムゾーンが日本の場合
現在時刻 GMT
my $now = Time::Piece->gmtime(); # タイムゾーンが日本の場合、localtime()より9時間前 my $epoch = Time::Piece->gmtime(0); # 1970-01-01 00:00:00
日時フォーマット指定
2000-04-01 00:00:00がGMTの場合：
my $tp = Time::Piece->strptime('2000-04-01 00:00:00', '%Y-%m-%d %H:%M:%S');
2000-04-01 00:00:00がローカルタイムの場合：
my $tp = Time::Piece->localtime->strptime('2000-04-01 00:00:00', '%Y-%m-%d %H:%M:%S');
Time::Seconds
Time::PieceオブジェクトをTime::Secondsオブジェクトへ変換する
my $ts = Time::Seconds->new($tp->epoch);
Time::SecondsオブジェクトをTime::Pieceオブジェクトへ変換する
my $tp2 = Time::Piece->gmtime($ts->seconds);
