Re^2: History Meme, in Perl!

Shorter:

system q(history|awk '{a[$2]++ } END{for(i in a){print a[i] " " i}}'|s
+ort -rn|head)
[download]

Comment on Re^2: History Meme, in Perl! Download Code

Replies are listed 'Best First'.
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]