Re: Re: Time

[kevyt]

Thanks Chipmunk. I tried:

use Time::local;
$fmt = 1;
$sec =2 ;
$min =3;
$hours =4;
$mday = 6;
$dmon =5;
$mon =6;
$year =7;
$wkday =8;
$Yearday =9;
$DST = 10;

#  use POSIX qw(strftime);

print timelocal($sec,$min,$hours,$mday,$mon,$year);

This also does not work. Am I doing something stupid? Kev

[chipmunk]

The name of the module is Time::Local, with the T and the L uppercase. Case is significant in module names. Fix that, and the code should work. You can test it with localtime:

#!perl -l

use Time::Local;
$sec = 1;
$min = 2;
$hours = 3;
$mday = 4;
$mon = 5;
$year = 6;

print $time = timelocal($sec,$min,$hours,$mday,$mon,$year);
print scalar localtime $time;

Which prints out:

1149404521
Sun Jun  4 03:02:01 2006

timelocal does some guessing on the year; it figured that 6 meant 2006. Also remember that the month starts at 0, so 5 is June.

[Anonymous Monk]

chipmunk, Thank you very much. Kev

[Fastolfe]

Just a tip: for future reference, "does not work" generally "does not help." chipmunk spotted the problem right away, but that may not be as easy in the future without an actual error message or a description of the problem. Glad to see you got your question answered, though.