comparison bin/sledp @ 11487:bbb91a3e7d49 draft

<oerjan> mkx bin/sledp//sled "$1" "--"
author HackEso <hackeso@esolangs.org>
date Thu, 12 Apr 2018 04:21:26 +0100
parents 4118a635d290
children
comparison
equal deleted inserted replaced
11486:1e6e3a07b5f4 11487:bbb91a3e7d49
1 [[ "$1" == ?*//* ]] || { echo 'usage: sled file//script'; exit 1; }; key="${1%%//*}"; value="${1#*//}"; [[ -f "$key" ]] || { echo 'Rosebud!'; exit 1; }; echo -n "$key//"; sed "$value" "$key" ; 1 sled "$1" "--"