perl命令行 代替 各种shell 一则
前两天在微博中看到一个各种管道符组成的命令，是用来统计history的，也就是说，统计你平时使用次数最多的命令，内容如下：
1 history | awk '{CMD[$2]++;count++;} END { for (a in CMD )print CMD[ a ]" " CMD[ a ]/count*100 "% " a }' | grep -v "./" | column -c3 -s " " -t |sort -nr | nl | head -n10
当然，如果作为一个awk或者sed偏执狂，根本不需要后面的管道符；
后来，发现有人follow了一条perl版本如下：
1 history | perl -ne '/\s+\d+\s+(.*)/ && ++$map{$1};END{map {print ++$i." $map{$_} ".$map{$_}/keys(%map)." $_\n"} reverse sort {$map{$a}<=>$map{$b}} keys(%map);}' | head -n10
本身我也想搞一条perl版本，但无奈，不知道怎么在一条perl -ne参数下，连续写两个循环，看了上面这条perl，才发现，可以使用END结束上面的循环，然后继续；
然后，我就借鉴了上面这位仁兄的perl条目，自己也写了一条：
1 history |perl -lane '$map{$F[1]}++;END{map {print ++$i." $map{$_} ".$map{$_}/keys(%map)." $_\n"} reverse sort {$map{$a}<=>$map{$b}} keys(%map);}'|head -n10
哈哈，稍微比他的精简一点点。
不过呢，这位仁兄厉害的地方不是END的应用，而是后面的map，有看懂后面的map么？
1 map {print ++$i . \ 2 3 " $map{$_} " . \ 4 5 $map{$_} / keys(%map) . \ 6 7 " $_\n"} \ 8 9 reverse sort { \ 10 11 $map{$a} <=> $map{$b} \ 12 13 } keys(%map);
看清了么？用map将%map的键比较大小后颠倒排序，以前面的方式重新输出，这种能拿print在map里直接输出的方法，还是第一次见到，长见识了，学习一下，顺便拿出来给大家看看。
