view bin/spam @ 12158:8520d01f0340 draft

<b_jonas> `` perl -i -ne \'s/^(!\\(1hackeso) /$1) /; print\' /hackenv/share/whatis
author HackEso <hackeso@esolangs.org>
date Mon, 18 Nov 2019 18:53:58 +0000
parents 405c0e846fcc
children
line wrap: on
line source

line="${1-$(cat $HACKENV/tmp/spline)}"; len="$(awk 'END{print NR}' $HACKENV/tmp/spout)"; echo -n "$line/$len:"; sed -n "${line}{p;q}" $HACKENV/tmp/spout; echo "$((line<len?line+1:1))" > $HACKENV/tmp/spline