view bin/addquote @ 12352:cf652da78b89 draft

<wib_jonas> `` perl -pi -e \'s/print (.*)/print($1)/\' /hackenv/bin/password
author HackEso <hackeso@esolangs.org>
date Wed, 04 Nov 2020 14:37:41 +0000
parents e1ce00d00682
children
line wrap: on
line source

#!/bin/sh
[ "$1" ] || exit 1
printf "%s\n" "$1" >>${HACKENV-/hackenv}/quotes
printf "%d) %s" $(qc | cut -d' ' -f1) "$1"