小编use*_*439的帖子

我如何得到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.