Exception Error in perl code

RajNaidu has asked for the wisdom of the Perl Monks concerning the following question:

When I execute theelow code I am getting below exception error. Line 405 in the program points to "return timelocal(0, 0, 0, @dmy) / (24 * 60 * 60);" Am I missing anything in code. ---------------------------------------------------------------------------------------------------------------- Uncaught exception from user code: Day '0' out of range 1..31 at /CLO/Tests/CTI/Scripts/drivers/lib/regressionDriver.pm line 405 Time::Local::timegm called at /usr/local/lib/perl5/5.8.0/Time/Local.pm line 120 Time::Local::timelocal(0,0,0,0,0) called at /CLO/Tests/CTI/Scripts/drivers/lib/regressionDriver.pm line 405 ---------------------------------------------

I have the following code in my program.

use strict;
use warnings;
use diagnostics;
use Time::Local;

my @match_list;
my $days1 = "";
my $days2 = "";
my $day = "";



if ($failtag eq "CompileErr") {

open my $pipe, "-|", "/usr/atria/bin/cleartool", "desc", "$include_pat
+h/$srcfile" or die "could not run cleartool: $!";

while (<$pipe>) {

next unless /created/;

my @rec = split;

push @match_list, substr $rec[1], 0, 9; } my $NOW=`date "+%d-%b-%Y`; m
+y $t = @match_list;
$days1 = epoch_days("$NOW");
$days2 = epoch_days("$t");

$day = $days1 - $days2;

if ($day < 15)

{

$failtag = "TestcaseDiff";

}

BEGIN {

my %month_num = do {

my $n = 0;

map(($_, $n++), qw/jan feb mar apr may jun jul aug sep oct nov dec/);

};

sub epoch_days {

my @dmy = split /-/, shift;

$dmy[1] = $month_num{lc $dmy[1]} || 0;

return timelocal(0, 0, 0, @dmy) / (24 * 60 * 60);

}

}

}
[download]

Comment on Exception Error in perl code Download Code

Replies are listed 'Best First'.
Re: Exception Error in perl code by FloydATC (Deacon) on Jun 21, 2009 at 16:08 UTC
The error message "Day '0' out of range 1..31" is a pretty strong hint, check your @dmy and I'm pretty sure you'll find that the first element is 0 (or something to that effect) -- Time flies when you don't know what you're doing	[reply]
Re^2: Exception Error in perl code by Rajsri (Initiate) on Jun 29, 2009 at 05:12 UTC
Hi, Thanks for the reply. I am new to perl programming, could you please let me know how to overcome this error. How should i assign @dmy. -Rajini	[reply]
Re^3: Exception Error in perl code by Corion (Patriarch) on Jun 29, 2009 at 06:42 UTC
First identify where `@dmy` gets assigned, and how. Then inspect what data it gets assigned from. Maybe you want to check that the data you assign from matches your expectations. It's not hard and it has little to do with Perl programming and more to do with general debugging.	[reply] [d/l]
Re: Exception Error in perl code by Anonymous Monk on Jun 21, 2009 at 14:46 UTC
See Re: Exception error in perl code - nntp.perl.org	[reply]
Re: Exception error in perl code by ikegami (Patriarch) on Jun 25, 2009 at 11:23 UTC
[ Reparented from later thread ] `timelocal` doesn't like your inputs. It's even nice enough to tell you what they are. Apparently, `@dmy` contains two elements, both zero, when used to populate the args of `timelocal`. That's surely due to `my $t = @match_list;` setting `$t` to the number of elements in `@match_list`. This is very straightforward debugging. Your variable doesn't contain what it should, so you backtrack until you find where the program's state differs from your expectations. As an aside, I wonder why you chose to ignore the warning `lc $dmy[1]` must have issued. Update: The above debugging would have taken less time than posting the question in at least three different places. Over the span of 9 days, no less! And you already got an answer 8 days ago! boggled	[reply] [d/l] [select]
Re^2: Exception error in perl code by jwkrahn (Abbot) on Jun 25, 2009 at 11:37 UTC
Why would `lc $dmy[1]` issue a warning?	[reply] [d/l]
Re^3: Exception error in perl code by ikegami (Patriarch) on Jun 25, 2009 at 11:41 UTC
oops, I thought `lc(undef)` would give a warning, but testing shows otherwise.	[reply] [d/l]
Re^2: Exception error in perl code by Rajsri (Initiate) on Jun 29, 2009 at 05:23 UTC
Hi ikegami, Thanks for the reply. I am new to perl programming, could you please let me know how to overcome this error. How should i assign @dmy. -Rajini	[reply]
Re^3: Exception error in perl code by ikegami (Patriarch) on Jun 29, 2009 at 05:44 UTC
You should start by reading my post again, which explains `@dmy` contains junk because `$t` contains junk. Fix the latter.	[reply] [d/l] [select]
Re: Exception Error in perl code by Corion (Patriarch) on Jun 25, 2009 at 12:16 UTC
Also, see the same post to perl5-porters. It also got an answer there, basically the same, good, answer as was provided here.	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks