Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
} 

sub get_tp { Time::Piece->strptime(shift, '%H:%M') }

Select or download this

1..18
ok 1 - 11:00 -> 13:00: Avg = 12:00    [HH:MM]
...
ok 16 - 23:58 -> 00:00: Avg = 23:59:00 [HH:MM:SS]
ok 17 - 23:59 -> 00:00: Avg = 23:59    [HH:MM]
ok 18 - 23:59 -> 00:00: Avg = 23:59:30 [HH:MM:SS]