view bin/randbin @ 11328:56b2bb1446bb

<wob_jonas> perl -e open$h,"<",($f="wisdom/font");local$/;$_=<$h>;s/ \\S+sample\\.png// or die; if (1) { open $o,">",$f;print$o $_; } print;
author HackBot
date Wed, 17 Jan 2018 21:00:31 +0000
parents 7b356ce29feb
children 3069d30fae85
line wrap: on
line source

f=$(find bin -ipath "bin/*$1*" -type f -print0 | shuf -z -n1); if [ -n "$f" ]; then echo -n "${f#bin/}//"; grep '' "$f"; else echo "That's not binary."; fi | rnooodl