I have corrected the code below.
But now im getting strange minute times
Time now is:Thu May 1 11:02:12 2003
0 years, 0 months, 0 days since , 0 hours since, 2 min since Thu May 1 10:00:00 2003
anymore ideas you can send my way?
regards
Gareth
#!/usr/bin/perl use Time::Piece; use Time::Seconds; $before = Time::Piece->strptime("2003/05/01 10:00:00", "%Y/%m/%d %H:%M +:%S"); $now = localtime(time); print "Time now is:$now\n"; $diff = $now - $before; $years = int($diff->years); $diff -= $years * ONE_YEAR; $months = int($diff->months); $diff -= $months * ONE_MONTH; $days = int($diff->days); $diff -= $hours * ONE_HOUR; $hours = int($diff->hours); $diff -= $minutes * ONE_MINUTES; $minutes = int($diff->minutes); $diff -= $minutes * ONE_SECONDS; $secounds = int($diff->seconds); print "$years years, $months months, $days days since , $hours hours s +ince, $minutes min since $before\n";
In reply to Re: Time::Piece errors?
by spacey
in thread Time::Piece errors?
by spacey
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |