リスト内で順序付けされていないペアの数を計算したいと思います。
つまり、リストがあります。
ab
ba
ac
bc
表示したい内容:
2 ab
1 ac
1 bc
ベストアンサー1
これは良いことのようですperl
。
perl -F -lane '$count{join "", sort @F}++;
END{print "$count{$_} $_" for sort keys %count}' < your-file
リスト内で順序付けされていないペアの数を計算したいと思います。
つまり、リストがあります。
ab
ba
ac
bc
表示したい内容:
2 ab
1 ac
1 bc
これは良いことのようですperl
。
perl -F -lane '$count{join "", sort @F}++;
END{print "$count{$_} $_" for sort keys %count}' < your-file