| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | my $minrt = 1e100; |
| 4 | my $min; |
| 5 | |
| 6 | while (<>) { |
| 7 | # [h:]m:s.xx U.xx S.xx |
| 8 | /^(?:(\d+):)?(\d+):(\d+(?:\.\d+)?) (\d+(?:\.\d+)?) (\d+(?:\.\d+)?)$/ |
| 9 | or die "bad input line: $_"; |
| 10 | my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3; |
| 11 | if ($rt < $minrt) { |
| 12 | $min = $_; |
| 13 | $minrt = $rt; |
| 14 | } |
| 15 | } |
| 16 | |
| 17 | if (!defined $min) { |
| 18 | die "no input found"; |
| 19 | } |
| 20 | |
| 21 | print $min; |