Interested in helping open source friends on HP-UX?
[git/mjg.git] / t / perf / min_time.perl
blobc1a2717e07725b9a8d7837eaba1015c0e694d277
1 #!/usr/bin/perl
3 my $minrt = 1e100;
4 my $min;
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;
17 if (!defined $min) {
18 die "no input found";
21 print $min;