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...
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 |