view bin/f @ 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 c989a1669243
children
line wrap: on
line source

#! /bin/bash
cmd="$1"
shift
f="$*"
if [[ -z "$f" && "$cmd" == *\ * ]]; then f="${cmd#* }"; cmd="${cmd%% *}"; fi
if [[ -z "$f" ]]; then echo try: \`f command filename; elif [[ -e "$f" ]]; then "$cmd" "$(< "$f")"; else echo no such file: "$f"; fi