perl - 用于 STDIN 上返回最常见值的数据列表的脚本

Question

我正在尝试编写一个脚本，该脚本在标准输入上获取数据即品牌列表，并提供包括计数在内的 10 个最常见数据位的输出。

我打算使用 PERL 但请纠正我

Answer 1

perl -ne '
  $s{$_}++ 
}{ 
  print map "$s{$_}: $_",
   (sort {$s{$b} <=> $s{$a}} keys %s)[0..9]
' 

Answer 2

这是使用常见 Linux 命令的一种解决方案：

sort <input file> | uniq -c | sort -g | tail -n 10

解释：

• sort：从文件或管道中对输入数据进行排序
• uniq -c：对排序后的数据进行分组并计算出现次数
• sort -g：按数字对分组/计数的数据进行排序，升序
• tail -n 10: 取最后 10 个结果