summaryrefslogtreecommitdiff
path: root/script/show_test_time
blob: d9a18f034eabd6be688769f6edb07afaf687280a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/env perl
#
use strict;
my %h;
open(FH, "subunit-ls --times --no-passthrough|") || die "pb with subunit-ls";
while(<FH>)
{
	chomp();
	my @l = split(/ /);
	my $val = @l[scalar(@l)-1];
	$h{join(' ',@l)} = $val;
}

my @sorted = sort { $h{$b}<=>$h{$a} } keys(%h);
use Data::Dumper;
foreach my $l (@sorted)
{
	print "$l\n";
}