求出現頻率最高的10條記錄

最近在學習Perl，看到論壇上有人問問題，就用Perl實現了寫在這裡，呵呵。

#!/usr/bin/perl -w
# 一個檔案裡有若干行記錄，有些記錄行是重複的，求出現頻率最高的10條記錄。

my $offset = 0;
my $len = 10;

my %hash;
while(<>){
chomp;
$hash{$_}++;
}

if($len > keys %hash){
$len = keys %hash;
}

my @sorted = reverse sort { $hash{$a} <=> $hash{$b} } keys %hash;

foreach (splice(@sorted, $offset, $len)) {
print "$hash{$_}: $_\n";
}

awk版本的也記錄在這吧（作者diginto＠newsmth）：

cat test.txt | awk '{c[$0]++} END{for(i in c)print c[i]"\t"i}' | sort -nr | head -n10 | cut -f2-

cppgx@newsmth說，其實用uniq -c更簡單。