Mercurial > repo
annotate bin/quote @ 11295:0b054ddeff49
<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/(fifth) kind of vitreous/$1/ or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,200;
| author | HackBot |
|---|---|
| date | Mon, 01 Jan 2018 18:01:49 +0000 |
| parents | 3e54f8d1843f |
| children |
| rev | line source |
|---|---|
| 0 | 1 #!/bin/sh |
| 2 allquotes | if [ "$1" ]; then | |
| 3 if expr "$1" + 0 >/dev/null 2>&1; then | |
| 4 sed "$1q;d" | |
| 5 else | |
| 6 grep -P -i -- "$1" | |
| 7 fi | |
|
9771
3e54f8d1843f
<oerjan> sled bin/quote//s,shuf,shuf --random-source=/dev/urandom,
HackBot
parents:
0
diff
changeset
|
8 else shuf --random-source=/dev/urandom -n 1; fi |