次のperlスクリプト用の素敵な(短くてエレガントな)ワンライナーを探しています:
use strict;
use warnings;
my %all;
while(<DATA>) {
chomp;
my ($name, $x, $path) = split /\s+/;
push @{$all{$path}}, $name;
}
foreach my $path (sort keys %all) {
my $cnt = scalar @{$all{$path}};
print "$path $cnt @{$all{$path}}\n" if $cnt > 1;
}
__DATA__
Atxt x a/b/c
Btxt x a/d/x
Ctxt x i/t/a
Dtxt x i/y/a
Etxt x i/t/a
Ftxt x a/d/x
Gtxt x a/d/x
ofc、ワンライナーはDATAからではなくSTDINから読み取る必要があります。
つまり、スクリプトは3つのフィールド(、、)を読み取りname
、x
重複path
したパスの要約を次の形式で出力する必要がありますpath dup_count name1 ... namex
。それぞれname
が異なります。
だから、次のようなものを探しています:
my_command | perl -F '\s+' -nle 'shorter_variant_of_the_above_script'