perl以4位数格式打印当前年份

Question

我如何获得4位数的当前年份，这是我尝试过的

 #!/usr/local/bin/perl

 @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
 @days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
 $year = $year+1900;
 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
 print "DBR_ $year\\$months[$mon]\\Failures_input\\Failures$mday$months[$mon].csv \n";

这打印 DBR_ 114\Apr\Failures_input\Failures27Apr.csv
我如何获得2014年？

我正在使用 5.8.8 build 820版本。

Answer 1

移动线:

$year = $year+1900;

在那之后调用 localtime()并成为:

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$year = $year+1900;