Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
    $str .= "$t days, " if $t>0;
    $str .= sprintf "% 2u:% 2u:% 2u", $hours, $minutes, $seconds;
}

Select or download this

roboticus@Boink:~$ ./848005.pl 
 0:20:34
 3:25:45
1 days, 10:17:36
roboticus@Boink:~$