Are you using use warnings; and use strict;?

What are the contents of $sec, $min, $hhour, $day, $month, and $year just prior to the timelocal call? (just for an example of data that produces the error)

Matt

There's quite a bit of general information there and who knows - it may even solve your problem!

"Getting a date with Perl" may be the most misleading title since "Naked Lunch". It's Friday night, and despite (or because of) my skill with Perl, I still have the same problem as before: no date. If Perl could help people get dates, C would be deader than Pascal and Larry Wall would be richer than Bill Gates.

-Logan
"What do I want? I'm an Perl Coder. I want more dates."

From my reading of the problem, mkent simply has a problem translating the variables in his file with Time::Local.

Reproducing merlyn's article we get:

#!/usr/bin/perl -w
use strict;
use CGI ':standard';
        use Time::Local;
        my $time = timelocal(0,0,0,1,0,100);
        my $string = localtime $time;
print header(), start_html(-title => "");        
        print "the big ball falls at $time => $string\n";
print end_html();
[download]

Simply placing the mkent's line:

my $time = timelocal($sec,$min,$hhour,$day,$month,$year);
[download]

should work in the same way provided MarkM's advice is followed:

my $time = timelocal($sec,$min,$hhour,$day,$month-1,$year-=1900);
[download]

So finally we have:

#!/usr/bin/perl -w
use strict;
use CGI ':standard';
        use Time::Local;
my $sec = "50";
my $min = "20";
my $hhour = "10";
my $day = "12";
my $month = "12";
my $year = "2002";
        my $time = timelocal($sec,$min,$hhour,$day,$month-1,$year-=190
+0);
        my $string = localtime $time;
print header(), start_html(-title => "");        
        print "the big ball falls at $time => $string\n";
print end_html();
[download]

The truth is in there. Somewhere.

Thanks. This was good reading, though I still have the problem!

Did you run merlyn's script with your parameters? In the script I showed it worked well so you would need to post more code and data to see where the problem might be.

The truth is in there. Somewhere...

What you need is Time::Local, part of the standard set of Perl Modules. As per the manual:

These routines are the inverse of built-in perl fuctions localtime() and gmtime(). They accept a date as a six-element array, and return the corresponding time(2) value in seconds since the Epoch (Midnight, January 1, 1970). This value can be positive or negative.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

timelocal "converts a time as returned by the time function to a 9-element list with the time analyzed for the local time zone" - it's input is a simple number, not a list.

update: my fault. I was talking about localtime. Sorry.

Actually, timelocal() converts a 6 element list into a time value. localtime() converts a time value into a 9 element list.

Without knowing what the error is, I would suspect that the error is that timelocal() expects the month to be 0-based, and the year to be the offset from 1900.

Also, I would recommend that 'use Time::Local' be used, and not 'require "timelocal.pl"'. (timelocal.pl is implemented in terms of Time::Local, therefore 'require "timelocal.pl"' is unnecessary obscurity)

BTW, did you really mean to use $hhour instead of $hour?

-Logan
"What do I want? I'm an American. I want more."

Yes, since its December, you're probably using 12 which is out-of range for $month. You may also need to subtract 1900 from the year since it (currently) needs to be 102. Try dumping the values from localtime so that you can see what the values should look like, as in:

use strict;
use Data::Dumper;

my @time_ary = localtime(time);
print Dumper(\@time_ary);
[download]

Where do you want *them* to go today?

You may also need to subtract 1900 from the year since it (currently) needs to be 102.

Time::Local is smart enough to figure that out by itself.