annotate bin/etymology @ 11733:2870030ddcec
draft
<fizzie> mkx bin/wiseguys//hlnp -T \'{desc}\\n\' wisdom | cut -d\' \' -f1 | sort | uniq -c | sed -e \'s/^ *//\' | sort -nr | head -n ${1:-10}
| author |
HackEso <hackeso@esolangs.org> |
| date |
Thu, 14 Feb 2019 17:13:14 +0000 |
| parents |
e037173e0012 |
| children |
|
| rev |
line source |
|
0
|
1 #!/bin/bash
|
|
|
2 if [ ! "$1" ]
|
|
|
3 then
|
|
|
4 echo 'Look up what?'
|
|
|
5 exit 1
|
|
|
6 fi
|
|
|
7
|
|
|
8 QUERY=`echo -n "$1" | od -t x1 -A n -w1000 | tr " " %`
|
|
|
9
|
|
|
10 lynx --cfg=/dev/null --lss=/dev/null \
|
|
|
11 --dump --width=1000 'http://etymonline.com/?search='"$QUERY" |
|
|
|
12 grep -A 100 ']'"$1" |
|
|
|
13 sed 's/\[[0-9]*\]//g ; s/ Look up.*// ; s/ */ /g' |
