Mega Code Archive

 

Categories / Perl / Network

 

Extract link from a web page

use LWP::Simple; use HTML::LinkExtor; $html = get("http://www.rntsoft.com"); $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";             }         }     } }