Deal with links in a web page (I)
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 |