view bin/med @ 11845:92a46219c6df draft

<wob_jonas> perl -e open$I,"<",$c="bin/hi"; local $/; $s=<$I>; $s=~s/`words`/\\$ENV{IRC_NICK}/ or die; if (1) { open $O,">",$c or die; print $O $s or die; } print $s;
author HackEso <hackeso@esolangs.org>
date Tue, 16 Jul 2019 12:25:30 +0000
parents c989a1669243
children
line wrap: on
line source

#Rewritten by hand
#info on lines 2 4 9 15 20 26.. continued on line 2
#32 38
if [ "$1" == "rl" ]; then #readline
	NUM="$3"
	cat "$2" | sed "${NUM}!d"
	exit 0
fi
if [ "$1" == "rr" ]; then #readrange
	NUM="$3"
	NUM2="$4"
	cat "$2" | sed "${NUM},${NUM2}!d"
	exit 0
fi
if [ "$1" == "dl" ]; then #delete line
	NUM="$3"
	cat "$2" | sed "${NUM}d" > /tmp/med.tmp && mv /tmp/med.tmp "$2"
	exit 0
fi
if [ "$1" == "dr" ]; then #delete range
	NUM="$3"
	NUM2="$4"
	cat "$2" | sed "${NUM},${NUM2}d" > /tmp/med.tmp && mv /tmp/med.tmp "$2"
	exit 0
fi
if [ "$1" == "il" ]; then #insert line
	NUM="$3"
	TEXT="$4"
	cat "$2" | sed "${NUM}a${TEXT}" > /tmp/med.tmp && mv /tmp/med.tmp "$2"
	exit 0
fi
if [ "$1" == "sl" ]; then #Substitute word
	WORD="$3"
	WORD2="$4"
	cat "$2" | sed "s/${WORD}/${WORD2}/g" > /tmp/med.tmp && mv /tmp/med.tmp "$2"
	exit 0
fi
if [ "$1" == "si" ]; then #sub. the nth instance of word on line
	WORD="$3"
	WORD2="$4"
	NUM="$5"
	cat "$2" | sed "s/${WORD}/${WORD2}/${NUM}" > /tmp/med.tmp && mv /tmp/med.tmp "$2"
	exit 0
fi
if [ "$1" == "ol" ]; then #Override next line
	NUM="$3"
	TEXT="$4"
	cat "$2" | sed "${NUM}d" | sed "${NUM}i${TEXT}" > /tmp/med.tmp && mv /tmp/med.tmp "$2"
	exit 0
fi
exit 1