Re: History Meme, in Perl!

Wow, the number one item in my history is perl! I guess that comes from running everything as "perl blahblah.pl". Number two is cd. And it appears I use perldoc more often than man.

Using the suggestion from rhesa,

history|perl -lane '$h{$F[1]}++;END{print"$h{$_} $_"for(sort{$h{$b}<=>
+$h{$a}}keys%h)[0..9]}'
[download]

Comment on Re: History Meme, in Perl! Select or Download Code

Replies are listed 'Best First'.
Re^2: History Meme, in Perl! by jdporter (Paladin) on Apr 11, 2008 at 20:26 UTC
Shorter: `system q(history\|awk '{a[$2]++ } END{for(i in a){print a[i] " " i}}'\|s +ort -rn\|head)` [download]	[reply] [d/l]
Re^3: History Meme, in Perl! by kyle (Abbot) on Apr 11, 2008 at 20:37 UTC
`bash: system: command not found` [download] Not only that, "`perl -e 'system q(history)'`" produces no output, presumably because the subshell that perl spanws for system doesn't have a history.	[reply] [d/l] [select]
Re^4: History Meme, in Perl! by jdporter (Paladin) on Apr 12, 2008 at 14:29 UTC
`bash: system: command not found` What in the world gave you the idea this was supposed to be a bash script? Aren't we golfing Perl? "`perl -e 'system q(history)'`" produces no output... Yowch. Now that is a problem. :-(	[reply]