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

Example 3 rewrite

Old

use LWP::Simple;
use Template::Extract;
use Data::Dumper;
my $obj = Template::Extract->new;
print Dumper $obj->extract('[% FOREACH rec %]<a href="[% ... %]">[% link %]</a>[% END %]',
                           get("http://google.com"));
continued...
Copyright © 2006 Yung-chung Lin