annotate bin/etymology @ 11659:2a34e647b1b7
draft
<b_jonas> perl -e open$I,"<",($n="wisdom/`hello") or die; local$/; $c=<$I>; eof$I or die"e"; $c=~s!/d,/d/!/o,/o/! or die "s"; open $O,">",$n or die"O"; print $O $c or die"p"; warn "edited $f;";
author |
HackEso <hackeso@esolangs.org> |
date |
Sat, 01 Dec 2018 21:29:01 +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' |