当我变换我的$url
时,我会获得些什么:$url = URI->new($url)
?通过Perl的URI模块过滤URL可以获得什么?
#!/usr/bin/env perl
use warnings; use strict;
use 5.012;
use URI;
use XML::LibXML;
my $url = 'http://stackoverflow.com/';
$url = URI->new($url);
my $doc = XML::LibXML->load_html(location => $url, recover => 2);
my @nodes = $doc->getElementsByTagName('a');
say scalar @nodes;
“它可以检测到无效的URL(尽管你需要关闭无方位的位)” - 我想这样做,但是怎么做?我发现URI构造函数在它期望的时候非常自由 - 这可能是因为它处理了很多方案。我正在寻找验证HTTP/S URL的东西。应该很容易写出能够完成这项工作的东西,但是当'URI'模块在那里为我推出工作时,我不想重新发明轮子。 – Lumi 2011-06-21 16:26:23