| Thomas Rast | 342e9ef | 2012-02-17 11:25:09 +0100 | [diff] [blame] | 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; | ||||