Mercurial > repo

annotate bin/hatesgeo @ 2890:cbf5f6b45af8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<nooodl> echo -e "#!/bin/sh\\n\\"\\$@\\" | curl -s -F \'sprunge=<-\' http://sprunge.us" > bin/sprunge
author HackBot
date Wed, 08 May 2013 19:55:40 +0000
parents e037173e0012
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
e037173e0012 Initial import.
HackBot
parents:
diff changeset
1 #!/bin/sh
e037173e0012 Initial import.
HackBot
parents:
diff changeset
2 perl -n -e '/:(.*?)!.*JOIN/; $j{$1}++; END {print "$_ $j{$_};" for sort {$j{$b} <=> $j{$a}} keys %j}' $@