note
CountZero
Using [module://LWP::Simple] and [module://HTML::SimpleLinkExtor] it doesn't have to be more complicated than:<c>use strict;
use warnings;
use LWP::Simple;
use HTML::SimpleLinkExtor;
my $extor = HTML::SimpleLinkExtor->new('http://www.perlmonks.org/');
$extor->parse_url('http://www.perlmonks.org');
print "Checking $_: ", ( head($_) ? 'Good link' : 'Bad link' ), "\n"
for $extor->links
</c>Do read the docs for [module://HTML::SimpleLinkExtor] as it has a lot more functionality, for instance what kind of links you want to extract.<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-198160">
<p>CountZero</p><p><i>A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity."</i> - [http://www.canonical.org/~kragen/tao-of-programming.html|The Tao of Programming], 4.1 - Geoffrey James</p>
</div></div>
801302
801302