ref: 3d98f22b01f61b93c3bcc6ffe3f0eb0fa2d01f98
dir: /crawl/khinsider/
#!/bin/rc
flag e +
for(i in $*){
x=`{echo $i | sed -n 's/.*\/([^\/]+)$/\1/p'}
mkdir -p $x && cd $x
hget $i |\
sed -n '/\.mp3/s/^.*<a href="(.*)".*/\1/p' |\
uniq |\
xargs -n 1 hget |\
sed -n '/^<audio/s/<audio id=".*" src="(.*\.mp3)".*/\1/p' |\
xargs dw
cd ..
}