word: mkimg-google tool to download images

[sheet.git] / tools / mkimg-google

diff --git a/tools/mkimg-google b/tools/mkimg-google
new file mode 100755 (executable)
index 0000000..1e1f7a8
--- /dev/null
+++ b/tools/mkimg-google
@@ -0,0 +1,13 @@
+#!/bin/sh
+CURL='curl -sSf'
+QUERYURL="https://www.google.com/search?tbm=isch&pws=0&hl=nl&num=1&q="
+ARGMATCH='<img [^>]+src="(http[^"]+)"'
+
+for q in "$@"
+do
+       [ -e "$q.jpg" ] && continue
+       echo "$q"
+       QUERYARG="%22$q%22"
+       QUERYRES=$($CURL "$QUERYURL$QUERYARG" | perl -nE "say for /$ARGMATCH/" | head -1)
+       $CURL "$QUERYRES" -o "$q.jpg" || continue
+done