view bin/learn @ 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 148a9eb1caa3
children
line wrap: on
line source

#!/bin/bash
topic=$(echo "$1" | lowercase | sed 's/^\(an\?\|the\) //;s/s\?[:;,.!?]\? .*//')
[ -e "$HACKENV/wisdom/$topic" ] && verb="Relearned" || verb="Learned"
echo "$1" >"$(echo-p "$HACKENV/wisdom/$topic")"
echo "$verb '$topic': $1"