annotate bin/wrlist @ 7137:59c9be91adcd

<oerjan> mkx bin/slashlearn//sep="/"; [[ "$0" == *//* ]] && sep="//"; [[ "$1" == ?*"$sep"* ]] || exit 1; key="$(echo "${1%%$sep*}" | lowercase)"; value="${1#*$sep}"; [ -e "wisdom/$topic" ] && verb="Relearned" || verb="Learned"; echo "$value" > "$(echo-p "wisdom/$key")" && echo "$verb \xc2\xab$key\xc2\xbb"
author HackBot
date Sun, 06 Mar 2016 16:48:02 +0000
parents f653b7450e93
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6992
2f7f51411975 <b_jonas> perl -e-e($t="bin/wrlist")and die;use File::Copy;copy("bin/flist",$t)
HackBot
parents:
diff changeset
1 echo -n "$(basename "$0")${@:+ }$@: "; tail -n+2 "$0" | xargs; exit
6996
05ba76ac5027 <b_jonas> perl -efor $comic("ag","wr"){open$O,">>","bin/${comic}list";print$O"b_jonas\\n";}
HackBot
parents: 6992
diff changeset
2 b_jonas
6997
f653b7450e93 <b_jonas> perl -efor $comic("ag","wr"){open$O,">>","bin/${comic}list";print$O "b_jonas\\n";}
HackBot
parents: 6996
diff changeset
3 b_jonas