Kleines Rechenproblem mit Date::Calc: Will einen Monat von heute zurückrechnen - #76071 (Fragen zu Perl-Modulen)

krusty

2007-04-20 16:12

User since
2006-01-27
91 Artikel
BenutzerIn
[default_avatar]

Ich habe das jetzt so gemacht.

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;
use Time::Local;
use Date::Calc qw(Add_Delta_YMD);

my ($sec,$min,$hour,$day,$month,$year) = (localtime)[0..5];
$month++;
$year+=1900;
print "Debug: $sec, $min, $hour, $day, $month, $year\n";

my ($Dy, $Dd) = 0;
my $Dm = 1;
my ($year2, $month2, $day2) = Add_Delta_YMD($year, $month, $day, $Dy, -$Dm, $Dd);
print "Debug: $sec, $min, $hour, $day2, $month2, $year2\n";

Wenn ich das Script dann ausführe bekomme ich in der Ausgabe zwar das richtige Ergebnis, aber bekomme gleichzeitig noch eine Fehlermeldung.

Code: (dl )

Use of uninitialized value in subroutine entry at ./test.pl line 15.

Kannst du mir erklären woher der Fehler kommt?\n\n