範例 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);continued...
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);continued...
Copyright © 2006 Yung-chung Lin |