Also Time::Piece
use Time::Piece; my $date1 = Time::Piece->localtime(); my $date2 = Time::Piece->strptime( $args{date}, "%Y-%m-%dT%H:%M:%S" ); if ( $date2 > $date2 ) { # do something }; my $diff = $date1 - $date2; # in seconds my $days = $diff->days
Neil Watson
watson-wilson.ca
In reply to Re: Date::Manip and date
by neilwatson
in thread Date::Manip and date
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |