Returned wrong Year

[sam]

Hi,

I used the following perl code display date , month and year, but the
year is shown as 104 instead of 2004:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
print "Month: ".$mon."\n";
print "Year: ".$year."\n";

Result:
It is now Sat Dec 25 11:11:01 2004
Month: 11
Year: 104

What is the correct way to retrieve the value of the year?

Thanks
Sam

 

[Matt Garrish]

Hi,

I used the following perl code display date , month and year, but the year
is shown as 104 instead of 2004:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
print "Month: ".$mon."\n";
print "Year: ".$year."\n";

[snip expected results]

What is the correct way to retrieve the value of the year?

Please read the documentation for the function you're using. It explains the
behaviour you're witnessing.

http://www.perldoc.com/perl5.8.4/pod/func/localtime.html

Matt

 

[Jürgen Exner]

I used the following perl code display date , month and year, but the
year is shown as 104 instead of 2004:

Your code has a well-known y2k problem. You may want to read the
documentation for the functions you are using.

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime
time; print "Month: ".$mon."\n";
print "Year: ".$year."\n";

Result:
It is now Sat Dec 25 11:11:01 2004
Month: 11
Year: 104

What is the correct way to retrieve the value of the year?

This is described _AT_LENGTH_WITH_SAMPLE_CODE_ in the documentation of the
localtime() function.

jue