GetAFSStreamより便利なキャプチャソフトがあれば教えてください

craving_explorer

http://www.butsu-yoku.com/craving_explorer/download.html

以下は私が使っているスクリプトです。

Makefile

inpfile:=$(wildcard *.asx) $(wildcard *.wax)
outfile=$(foreach fn,$(inpfile),$(fn).log)
.PHONY: all
all: $(outfile)

%.asx.log: $(@:.log= )
        ./downradio.sh $(@:.log= )

%.wax.log: $(@:.log= )
        ./downradio.sh $(@:.log= )

downradio.sh

#!/bin/sh
ASX=$1
URLS=`gawk '{
if(/HREF/){
        match($0,"HREF *= *\".*\"")
        a=substr($0,RSTART,RLENGTH)
        match(a,"\".*\"")
        b=substr(a,RSTART+1,RLENGTH-2)
        print b
}
}' < ${ASX}`
for URL in ${URLS}
do
        FN=`basename ${URL}`
        LOG=${ASX}.log
        echo ${ASX} "has" ${URL}
        mplayer -dumpstream -dumpfile ${FN} ${URL} >>${LOG} 2>&1
        grep " done " ${ASX}.log
        grep " error " ${ASX}.log
        ls -lh ${FN}
done