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 }