シェルスクリプト総合 その5

[0474 名無しさん＠お腹いっぱい。 2006/03/09(木) 02:09:18]

エロ画像のダウン用だ。4行しかなかったから適当に改行してくれ。
while read url;do
if [ -z "$referer" ]; then referer="$(dirname $url)/index.html"; fi
test -f $(basename $url) || (while ! wget --user-agent='Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90; T312461)' --referer="$referer" --header='Accept-Encoding: gzip, deflate' --header='Accept-Language: en-us' "$1"; do sleep 1; done)
done

perlのモジュールというとLWPか。生活保護費もよろしくな。