[求助]一句perl实现sort | uniq -c的功能

polyahu

想不出比较简短的。

polyahu

1. perl -e 'my %hash; @hash{<>} = 1; print sort keys %hash;' < words

复制代码

上面这句里的@hash{<>}的用法对吗？

sjdy521

利用hash来统计次数，然后按照value的数值大小对key进行排序并输出

理解精髓就可以了，不必要纠结语法。

polyahu

1. perl -e 'my %hash; while(chomp($_=<>)){$hash{$_}++;}print scalar keys %hash' < words

复制代码

这么写不对... 哪里错了呢...

sjdy521

回复 4# polyahu

1. print scalar keys %hash

复制代码

这一行是打印出你自己hash里有多少个键，这当然不是你想要的结果

polyahu

1. perl -e 'my %hash; while(chomp($_=<>)){$hash{$_}++;} while(($key, $value) = each(%hash)) {print $key, " ", $value, "\n";}' < words

复制代码

这样就可以了... 谢谢...

sjdy521

回复 6# polyahu


    这样子没有符合你的题目要求，你用uniq -c意味着“次数”是排在第一列的

polyahu

回复 7# sjdy521


    呵呵，这倒是...

sjdy521

回复 6# polyahu


    通常情况下都是sort|uniq -c|sort -nr|head -n10 之类的组合使用，你说的这个使用方式不太常见
另外，sort|uniq -c速度太慢，远没有awk的数组（计算原理和perl的hash相同）速度好，处理几个G的文件你就会发现速度差异多么重要了
给你个perl例子，你可以稍微参考下

1. %hash;
   
2. while(<>){
   
3.     chomp;
   
4.     $hash{$_}++;
   
5. }
   
6. print "$hash{$_}\t$_\n" foreach(sort {$hash{$b}<=>$hash{$a}} keys %hash);

复制代码

我是没办法再写的更短了，这个东西awk写起来倒是比perl简短很多

polyahu

回复 9# sjdy521

1. awk '{a[$0]++}END{for(i in a)print a[i],i}' words

复制代码

awk确实短