#!/bin/sh

word="このページが取得された時点において、ユーザー名とパスワードはどちらも"
url="http://www.cybersyndrome.net/"
#pass="_proxy.pass"
list="http://www.cybersyndrome.net/plr3.html"
out="out.txt"

#wget -O - $url | nkf -e | grep $word | perl -ne 'm|<b>([^</b>]+)</b>| && print $1' > $pass
pass=`wget -q -O - $url | nkf -e | grep $word | perl -ne 'm|<b>([^</b>]+)</b>| && print $1'`

wget -q --http-user=$pass --http-passwd=$pass -O - \
| grep "^<li>" list.html \
| perl -pe 's|</li>|</li>\n|g' \
| cut -f 5 -d " " \
| perl -pe 's/class="//' \
| perl -pe 's/">/\t/' \
| perl -pe 's|</a></li>||' \
| perl -pe 's|</ol>\n||' \
| tee $out