view bin/hatesgeo @ 11488:cbd86e77f7c2 draft

<oerjan> ` mv bin/sledp bin/pled
author HackEso <hackeso@esolangs.org>
date Thu, 12 Apr 2018 04:23:08 +0100
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}' $@