view bin/hatesgeo @ 11200:bab35b823773

<int-e> ` sed -i \'$s=sha[c]haf=shach\x0faf=\' quotes > /dev/null
author HackBot
date Tue, 26 Sep 2017 10:49:31 +0000
parents e037173e0012
children
line wrap: on
line source

#!/bin/sh
perl -n -e '/:(.*?)!.*JOIN/; $j{$1}++; END {print "$_ $j{$_};" for sort {$j{$b} <=> $j{$a}} keys %j}' $@