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