重寫範例 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;