Mercurial > repo
view bin/slashlearn @ 8195:15385eb12db2
<oerjan> mkx bin/rnooodl//perl -pe \'s/(.)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author | HackBot |
---|---|
date | Sun, 29 May 2016 00:46:18 +0000 |
parents | b833ca1bf23c |
children |
line wrap: on
line source
sep="/"; [[ "$0" == *//* ]] && sep="//"; [[ "$1" == ?*"$sep"* ]] || exit 1; key="$(echo "${1%%$sep*}" | lowercase)"; value="${1#*$sep}"; [ -e "wisdom/$key" ] && verb="Relearned" || verb="Learned"; echo "$value" > "$(echo-p "wisdom/$key")" && echo "$verb «$key»"