repo.or.cz
/
git
/
debian.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
t0005: test git exit code from signal death
[git/debian.git]
/
t
/
perf
/
min_time.perl
blob
c1a2717e07725b9a8d7837eaba1015c0e694d277
1
#!/usr/bin/perl
2
3
my
$minrt
=
1
e100
;
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
;