画像収集とリネームと連番付けのスクリプトをメモしておきます.

いつか Perl で画像収集スクリプトを書きたいです.
Perl だとワンライナーでいけるそうなので.

[画像収集]

if [ -z $1 ]
then
echo "検索キーワードをいれてください"
echo "下記に例を示します"
echo "\$ ${0} \"magic the gathering\""
exit
fi

keyword=$1
keyword=`echo $keyword | nkf -wMQ | tr = %`

start=0

while [ $start -lt 64 ]
do
curl -e http://www.my-ajax-site.com \
"http://ajax.googleapis.com/ajax/services/search/images?q=${keyword}&v=1.0&hl=ja&rsz=large&start=${start}&imgsz=xxlarge" \
| tr , \\n > result.txt

status=`cat result.txt | grep "responseStatus" | sed -e 's/ "responseStatus": //g' -e 's/}//g'`

if [ $status != "200" ]
then
exit
fi

cat result.txt | grep "url" | sed -e 's/"url"://g' -e 's/"//g' >> list_url.txt

start=`expr $start + 8`
done

wget -T 30 -t 1 -i list_url.txt

rm list_url.txt

[rename] ここでは, *.png を.jpg に変更しているだけ.

#!/bin/sh
for file in `find ./ -name "*.png" -print`
do
res=`expr $file: "$.*$.png"`
mv $file $res.jpg
done

[連番] 10000 からの連番から欲しかったので, そうなってます.

declare -i i=10000
for file in *.jpg
do
mv $file $i.jpg
i=i+1
done