處理網頁上的連結 (I)
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 |