Perl脚本中如何将time()生成的时间戳转换为年份？

方法一：用内置localtime函数（无需额外模块） #

Perl的localtime()函数能把时间戳转换成时间组件列表，其中第6个元素（索引从0开始）是1900年到当前年份的差值，所以需要加1900才能得到实际年份：

my $timestamp = time();
# 解析时间戳为时间组件，$year是差值
my ($sec, $min, $hour, $mday, $mon, $year) = localtime($timestamp);
$year += 1900; # 转换为实际年份
print "当前年份：$year\n";

方法二：用POSIX模块的strftime格式化（简洁直观） #

借助POSIX模块的strftime()函数，可以直接按指定格式提取年份，%Y代表4位完整年份：

# 先导入strftime函数
use POSIX qw(strftime);

my $timestamp = time();
my $year = strftime("%Y", localtime($timestamp));
print "当前年份：$year\n";

方法三：用DateTime模块（面向对象风格，功能丰富） #

如果需要更复杂的日期操作，可以使用DateTime模块（需要先通过CPAN安装）：

use DateTime;

my $timestamp = time();
# 从时间戳创建DateTime对象
my $dt = DateTime->from_epoch(epoch => $timestamp);
my $year = $dt->year; # 直接获取年份
print "当前年份：$year\n";

内容的提问来源于stack exchange，提问作者Fontane