s3-lib Remove unused sys_fcntl_long()
[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 }