Deal with links in a web page (II)
url("google.com")->() >> { qr(^http:) => _self, qr(google) => \my @l, qr(google) => sub { print ">>>".$_->[0],$/ } }; $_->() while $_; print Dumper \@l;
url("google.com")->() >> { qr(^http:) => _self, qr(google) => \my @l, qr(google) => sub { print ">>>".$_->[0],$/ } }; $_->() while $_; print Dumper \@l;
Copyright © 2006 Yung-chung Lin |