Perl POSIX 返回错误的年份

Question

我有代码:

use POSIX qw( strftime );
print POSIX::strftime("%a, %d %b %G %T-0000",localtime(1325427034));

应该输出

Sun, 01 Jan 2012 09:10:34-0000

而是输出

Sun, 01 Jan 2011 09:10:34-0000

在我做的一些测试中，似乎只要时间是在 2010 年、2011 年或 2012 年的前几天就会发生这种情况。它在其他所有情况下都可以正常工作，包括 2013 年和 2014 年的前几天。是否有我应该做些不同的事情吗？

Answer 1

%G 受 ISO_8601 约束标准，

来自 perldoc

Consult your system's strftime() manpage for details about these and the other arguments.

man strftime

%G The ISO 8601 week-based year (see NOTES) with century as a decimal number. The 4-digit year corresponding to the ISO week number (see %V). This has the same format and value as %Y, except that if the ISO week number belongs to the previous or next year, that year is used instead. (TZ)

print POSIX::strftime("%a, %d %b %Y %T-0000",localtime(1325427034));
                                  ^__ gives 2012