Dotaz: porovnani casu -perl

[Petr]

Zdravim,

snazim se porovnat dva casy v perlu, kde pokud bude rozdil vic jak treba 15minut tak neco udelej, ale nedari se.

#aktualni cas $time = strftime "%Y-%m-%d %H:%M:%S", localtime; #(vysledny cas :$time=2013-05-15 11:17:53

#cas kdy se neco stane $time2=2013-05-15 11:12:53

Napada nekoho, jak tyto casy od sebe odecit tak, aby pokud bude mezi nimi rozdil 15minut aby proved dalsi ukony?

Dekuji.

---

---

Odpovědi

[Kit]

Zkus na to jít jinak: Uprav zdroj některého z časů o 15 minut a pak porovnej, který čas je novější. Bývá to schůdnější cesta.

[myšák]

To, co hledáte by mohl být např. getInterval() z modulu Time::Interval.

[chrono]

Ten čas sa dá spracovať napr. pomocou strptime z Time::Piece, teda niečo ako Time::Piece->strptime($time, "%Y-%m-%d %H:%M:%S");, a potom nie je problém tie časy od seba odpočítať. (a podobná funkcia je vo viacerých moduloch)

[petr_p]

Udělat se to dá různě s různou kvalitou. Spolehlivou artimetiku času nabízí DateTime a DateTime::Duration.