怎样获取HTML中的URL

wesouler

awk -v RS="</a>" '$1=$1{print $0"</a>"}' file|perl -p -e 'my($href,$word)=m/<a href="(.+?)".*>([^\s]+?)<.*/;$_="$href $word\n";'
分解一下：
1.把</a>做为分隔符，$1=$1去掉多余的符号，输出所有内容并加上</a>结尾
2.'my($href,$word)=m/<a href="(.+?)".*>([^\s]+?)<.*/;把 href=""中的作为参数$href,></之间的作为参数$word
3.$_="$href $word\n";'输出$href,$word