FEAR::API FEAR::API - There's no fear with this elegant site scraper #3

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