git.samba.org
/
mat
/
samba.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
s3:smbd/close: pass smbd_server_connection to notify_deferred_opens()
[mat/samba.git]
/
script
/
show_test_time
1
#!/usr/bin/env perl
2
#
3
use strict;
4
my %h;
5
open(FH, "subunit-ls --times --no-passthrough|") || die "pb with subunit-ls";
6
while(<FH>)
7
{
8
chomp();
9
my @l = split(/ /);
10
my $val = @l[scalar(@l)-1];
11
$h{join(' ',@l)} = $val;
12
}
13
14
my @sorted = sort { $h{$b}<=>$h{$a} } keys(%h);
15
use Data::Dumper;
16
foreach my $l (@sorted)
17
{
18
print "$l\n";
19
}