ファイル中のIDなどの出現数を数える

・count.prl

#!/usr/bin/perl

while(<>) {
        my($word) = split;
        $num{$word}++;
}
foreach (sort keys %num) {
        print "$_\t$num{$_}\n";
}

・candidate.txtの1列目のカラム（IDの列）を抜き出して、IDの数を数えて、その数（2列目）を数値的に降順にしてソートし、count_candidate.txtへ出力する。

cut -f1 candidate.txt |perl count.prl |sort -k2 -rn >count_candidate.txt