view bin/hatesgeo @ 6658:c1477023c681

<oerjan> mkx bin/echo-p//echo "$1"; [[ "$1" == */* ]] && mkdir -p "${1%/*}" 2>/dev/null
author HackBot
date Tue, 09 Feb 2016 01:12:38 +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}' $@