Mercurial > repo
view bin/sled @ 11659:2a34e647b1b7 draft
<b_jonas> perl -e open$I,"<",($n="wisdom/`hello") or die; local$/; $c=<$I>; eof$I or die"e"; $c=~s!/d,/d/!/o,/o/! or die "s"; open $O,">",$n or die"O"; print $O $c or die"p"; warn "edited $f;";
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Sat, 01 Dec 2018 21:29:01 +0000 |
| parents | 1e6e3a07b5f4 |
| children | 77454e3e15f3 |
line wrap: on
line source
opts="${2--i}" [[ "$1" == ?*//* ]] || { echo 'usage: sled file//script'; exit 1; }; key="${1%%//*}"; value="${1#*//}"; [[ -f "$key" ]] || { echo 'Rosebud!'; exit 1; }; sed $opts "$value" "$key" ;