git.oblomov.eu Git - git/blob - t/perf/min_time.perl

   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;