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

krusty

2007-04-20 16:50

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

Da ich das human datum nicht brauche, lasse ich einfach die Zeile $month++; raus.

Ist zwar total bescheuert, aber anders sehe ich keine Möglichkeit.

PS: Ich hasse es mit Zeiten zu rechnen.

EDIT:

Code (perl): (dl )

#!/usr/bin/perl

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

my ($day,$month,$year) = (localtime)[3..5];
$year+=1900;
my $month2 = "";

if ( $month == 1 )
{
        $month2 = 12;
}
else
{
        $month2 = $month-1;
}

my $time_now = timelocal(1, 0, 0, $day, $month, $year);
my $time_old = timelocal(1, 0, 0, $day, $month2, $year);
print "Debug: $time_now\n";
print "Debug: $time_old\n";

So geht es auch.\n\n