- use LWP::Simple;
- use html::LinkExtor;
- $html = get("http://www.oschina.net");
- $link_extor = HTML::LinkExtor->new(\&handle_links);
- $link_extor->parse($html);
- sub handle_links
- {
- ($tag, %links) = @_;
- if ($tag eq 'a') {
- foreach $key (keys %links) {
- if ($key eq 'href') {
- print "Found a hyperlink to $links{$key}.\n";
- }
- }
- }
- }
来源: http://www.phpxs.com/code/1006397/