範例 1
use LWP::Simple; use HTML::LinkExtractor; use Data::Dumper; my $input = get("http://google.com"); my $LX = new HTML::LinkExtractor(); $LX->parse(\$input); print Dumper($LX->links); # 或是使用 WWW::Mechanize use WWW::Mechanize; use Data::Dumper; my $mech = WWW::Mechanize->new(); $mech->get( "http://google.com" ); print Dumper $mech->links;