perl题目求解决
用perl脚本将http://www.downg.com/soft/22503.html网址中所有的非php、html、asp的链接打印出来
一下的程序是我一开始写的，就有问题了
#!/usr/bin/perl
$web = `wget = http://www.downg.com/soft/22503.html`;
while($web)
{
print if(m/href/);
}
发现无法输出包含href的行

[解决办法]

Perl code

#!/usr/bin/env perluse LWP::Simple;$text = get('http://www.downg.com/soft/22503.html');die $! unless defined $text;@hrefs = $text =~ /href\s*=\s*"(?!.*?\.(?:html|php|asp))([^"#\s]+)"[^>]*>/gi;print join("\n", @hrefs), "\n";
[解决办法]
安装 LWP 吧

cpan LWP::Simple