Dotaz: Výpočet rozdílu dnů v PERLu

[gat.centrum]

Ahoj, potrebuji pomoc s vypoctem rozdilu dnu.

Mam soubor " auto.csv "

Hlavicka

Datum;StavKM;CenaPH;Popis

Format

YYYYmmDD;#######;#####;""

Data

20040129;82765;500;Benzin;
20040204;82947;500;Benzin;

Data z *csv nacitam

@pole = split(/;/, $radek);

Potrebuji tedy z datumu druheho radku odecist datum prveho radku. Dekuji za nasmerovani.

---

---

Odpovědi

[HS]

Pouzij funkci timegm z Time::Local na oba datumy. Tim je prevedes na celociselnou hodnotu, ktera je v sekundach od zacatku epochy. Datumy odecti a delenim "spravnou hodnotou" dostanes pozadovany rozdil:)

[gat.centrum]

Dekuji vyreseno.

neni to zrovna IN ale budiž.

@pole = split(/;/, $radek);
@dny = split(//,@pole[0]);
$cas = timegm (0,0,0,(@dny[6]*10)+@dny[7],(@dny[4]*10)+@dny[5],(@dny[0]*1000)+(@dny[1]*100)+(@dny[2]*10)+@dny[3] - 1900);

[apokalypso77]

Dobrý den, Mám dotaz mám složku txt kam se mi zapisuje jméno a čas! aA potřeboval bych aby mi to načetlo tu složku a pokud se tam jméno nachází běham třeba 4 sekund 5 krát aby mi na to zareagoval morduji se stím už 4 den a nikde jsem nic podobnýho k tomu nenašel! Děkuji když tak za odpověd Jinak mám to celé psané v perlu