dato + 30 dage

Det synes at være lidt indviklet med dato beregninger i PERL, så jeg kan bare dele 2009-06-05 op og erstatte "-06-" med "-07-", det skulle gøre netop det, jeg har brug for, hvis der bare adderes 1 til årstallet når vi når "-12-"

Men hvordan gør jeg så det?

foreach $nummer(@FaktNr) {
                    @FakDato = split(/-/,$OrdreDato[$counter2]);
                    if ($FakDato[1] eq "12"){$FakDato[0] = $FakDato[0] + 1; $Fdato = "01";}
                    elsif ($FakDato[1] eq "11"){$Fdato = "12";}
                    else {$Fdato = $FakDato[1] + 1;
                    if ($Fdato < 10){$Fdato = "0".$Fdato;}
                    $FakDato[1] = $Fdato;}
                    $fakdat = join ("-", @FakDato);

lukker.

Det må kunne laves fixere.

Eksempel:

my $s1 ="2009-06-05";
my $dt1 = ParseDateString($s1);
my $dt2 = DateCalc($dt1, "30 days");
my $s2 = UnixDate($dt2, "%Y-%m-%d");