in reply to Re: Time
in thread Converting date to epoch time

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);

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

Replies are listed 'Best First'.
Re: Re: Re: Time
by chipmunk (Parson) on Dec 03, 2001 at 09:31 UTC
    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;

    [download]
    Which prints out: 
    1149404521
Sun Jun  4 03:02:01 2006

    [download]
    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.
[reply]
[d/l]
[select]
      chipmunk, Thank you very much. Kev
[reply]
Re: Re: Re: Time
by Fastolfe (Vicar) on Dec 04, 2001 at 00:30 UTC
    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.
[reply]

In Section Seekers of Perl Wisdom