通过Perl的URI模块过滤URL可以获得什么?

sid*_*com 5 url perl uri

难道我有所收获时,我改变我$url是这样的:$url = URI->new( $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;
Run Code Online (Sandbox Code Playgroud)

DVK*_*DVK 4

URI模块构造函数将为您清理 URI - 例如,正确转义对 URI 构造无效的字符(请参阅URI::Escape)。