當我變換我的$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