Squashed 'third_party/git/' content from commit cb71568594
git-subtree-dir: third_party/git git-subtree-split: cb715685942260375e1eb8153b0768a376e4ece7
This commit is contained in:
commit
1b593e1ea4
3629 changed files with 1139935 additions and 0 deletions
21
t/perf/min_time.perl
Executable file
21
t/perf/min_time.perl
Executable file
|
|
@ -0,0 +1,21 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
my $minrt = 1e100;
|
||||
my $min;
|
||||
|
||||
while (<>) {
|
||||
# [h:]m:s.xx U.xx S.xx
|
||||
/^(?:(\d+):)?(\d+):(\d+(?:\.\d+)?) (\d+(?:\.\d+)?) (\d+(?:\.\d+)?)$/
|
||||
or die "bad input line: $_";
|
||||
my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
|
||||
if ($rt < $minrt) {
|
||||
$min = $_;
|
||||
$minrt = $rt;
|
||||
}
|
||||
}
|
||||
|
||||
if (!defined $min) {
|
||||
die "no input found";
|
||||
}
|
||||
|
||||
print $min;
|
||||
Loading…
Add table
Add a link
Reference in a new issue