重寫範例 2
Old
use WWW::Mechanize;
use Data::Dumper;
my $mech = WWW::Mechanize->new();
$mech->get( "http://google.com" );
my @link;
foreach ($mech->links){
if($_->[0] =~ /foo/){
$mech->get($_->[0]);
}
elsif($_->[0] =~ /bar/){
push @link;
}
}
print Dumper \@link;
New
use FEAR::API -base;
fetch("google.com") >> [
qr(foo) => _self,
qr(bar) => \my @link,
];
$_->() while $_;
print Dumper \@link;