mirror of
https://github.com/samba-team/samba.git
synced 2024-12-22 13:34:15 +03:00
20 lines
331 B
Plaintext
20 lines
331 B
Plaintext
|
#!/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";
|
||
|
|
}
|