PerlでUNIX時間を取得・変換
Perlで現在のエポック値を取得し、UNIX秒とUTCの日時を相互変換するコードをコピーできます。
現在のタイムスタンプを取得
print time(), "\n";タイムスタンプを日時に
use POSIX qw(strftime);
print strftime("%Y-%m-%dT%H:%M:%SZ", gmtime(1700000000)), "\n";日時をタイムスタンプに
use Time::Local qw(timegm_modern);
print timegm_modern(20, 13, 22, 14, 10, 2023), "\n";現在のUNIX時間
秒—
ミリ秒—
- UTC
- —
- 自分のタイムゾーン
- —
無料で使えます。入力内容はこのブラウザ内で処理されます。
使い方
- 最初の例をPerlの環境で実行し、現在のUNIX秒を取得します。
- 2つ目の例で1700000000をUTCの日時に変換します。
- 最後の例でその日時を再びUNIX秒に戻します。
gmtimeのリスト結果では月が0から始まり、年は1900年からの差です。UTC日時の生成には4桁の年をtimegm_modernに渡します。