Dotaz: Perl - datum předchozího dne

[mira]

potřebuji vlozit do jmena souboru datum předchozího dne ve formátu měsíc-den ,problém je při přechodu na další měsíc jak odečíst den ,uvádím zde jenom část programu,ostatní chodí v pohodě(asi na to jdu úplně blbě) díky

#!/usr/bin/perl

@mesice = qw(01 02 03 04 05 06 07 08 09 10 11 12);

@dny= qw(00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 );

@cas = localtime(time);

print"$mesice[$cas[4]]-$dny[$cas[3]]"

Odpovědi

[Vašek Lorenc]

use Date::Calc;

Add_Delta_Days
             ($year,$month,$day) =
             Add_Delta_Days($year,$month,$day,
                            $Dd);

-- asi by Vám to ušetřilo trochu práce za cenu minimální další závislosti. Objevovat kolo není nutné.

[mira-m]

díky za odpověd ,tenhle modul nemám nainstalovanej tak nevim jestli mě pomůže s problémem předchozího dne

[unchallenger]

Tak ho nainstaluj.

[zabza]

[ivok@zero ivok]$ perl -MPOSIX -e 'print strftime("%m-%d",localtime(time)),"\n"'
02-03
[ivok@zero ivok]$ perl -MPOSIX -e 'print strftime("%m-%d",localtime(time-24*60*60)),"\n"'
02-02

[mira]

Co je to MPOSIX ? Muj SuSE Linux to nějak nechápe a já také ne, typnul bych to na system Macintosh .Vyskouším modul DateCalc. Jinak dík

[unchallenger]

perlrun(1), tam je option -M podrobně popsán. Pokud ho tvůj perl nechápe, pošli bugreport, protože -M umí perl odjakživa (tedy alespoň od verze 5, prehistorické už si nepamatuji).

[Samuel]

nevidim problem s -M, ale da sa aj bez neho
perl -e '@cas = localtime(time-24*60*60); printf("%02d-%02d",$cas[4]+1,$cas[3]);'

[mira-m]

to jsem potřeboval

dík