Perl 片段

Perl Unix 时间戳代码片段

Perl 示例：用 time() 获取当前 Unix 时间戳、用 POSIX::strftime() 格式化日期，以及用 Time::Local 把日历日期转回 epoch 秒。

Current Unix timestamp (seconds)

my $ts = time();

Current Unix timestamp (milliseconds)

use Time::HiRes qw(time);
my $ms = int(time() * 1000);

Format timestamp as UTC string

use POSIX qw(strftime);
my $str = strftime("%Y-%m-%d %H:%M:%S", gmtime(1700000000));
# "2023-11-15 06:13:20"

Format timestamp as local time string

use POSIX qw(strftime);
my $str = strftime("%Y-%m-%d %H:%M:%S", localtime(1700000000));

Timestamp from date components (UTC)

use Time::Local qw(timegm);
# timegm(sec, min, hour, mday, mon, year)
# mon is 0-indexed: 10 = November
my $ts = timegm(20, 13, 6, 15, 10, 2023);

Timestamp from date components (local)

use Time::Local qw(timelocal);
my $ts = timelocal(20, 13, 6, 15, 10, 2023);

Parse ISO date string to timestamp

use Time::Piece;
my $t = Time::Piece->strptime("2023-11-15T06:13:20Z", "%Y-%m-%dT%H:%M:%SZ");
my $ts = $t->epoch;

下面这些 Perl 示例以 Unix 秒作为通用基准，只有在运行时天然提供毫秒的地方才展示毫秒。复制之前先回答一个简单的问题：下游那个 API 要的是什么单位？

获取当前 Unix 时间

my $seconds = time();

my $seconds = 1700000000;
my @utc = gmtime($seconds);

time 返回的是 Unix 秒。要 UTC 输出就用 gmtime；只有当你确实想让本机时区成为结果的一部分时，才用 localtime。

值跨越系统边界时，把单位写进字段名里：createdAtSeconds 和 createdAtMs 是比 createdAt 长了点，但出事故的时候能省下不少猜测。

Q: localtime() 为什么返回列表而不是字符串？: A: 在列表上下文中，localtime($ts) 返回 (sec, min, hour, mday, mon, year, wday, yday, isdst)；在标量上下文中它返回一个 ctime 风格的字符串。想要自定义格式，用 POSIX::strftime 把列表拼出来。
Q: Perl 里怎么拿到亚秒级时间戳？: A: 用 Time::HiRes：'use Time::HiRes qw(time); my $ms = int(time() * 1000);'。这是 Perl 的核心模块，不用额外从 CPAN 安装。