view bin/mislearn @ 8072:90dbd630fd23

<b_jonas> `` perl -pi -e \'s/ (\\$c\\[rand\\(\\@c\\)])/($1 || "No card found.")/\' bin/random-card
author HackBot
date Mon, 16 May 2016 11:14:18 +0000
parents 061734ba3033
children
line wrap: on
line source

#!/bin/bash
topic=$(echo "$1" | lowercase | sed 's/^\(an\?\|the\) //;s/s\?[:;,.!?]\? .*//')
echo "$1" >"tmflry/$topic"
echo "Was lied to about '$topic': $1"