[Classiccity-pm] timtowtdi

[Mark Hazen]

Darrell Golliher posted the below:

> I'm interested in seeing out other people would do something.  I have
> a solution I like, it's at the end.

I prefer something like the following, because it'll only grab numeric
values, and it zero-fills the missing elements:

     my ($sec, $min, $hour) =
          (reverse grep /\b\d+\b/, split /\b/, '0 0 0 ' . $uptime); 


mh.
----
   . _+m"m+_"+_    Mark Hazen
 d' Jp     qh qh
Jp  O       O  O
Yb  Yb     dY dY
 O   "Y5m2Y"  "  even the mightiest wave starts out as a ripple.
  "Y_            why make waves when it's easier to nurture ripples?