http://www.perlmonks.org?node_id=801324


in reply to Detect Broken links

Using LWP::Simple and HTML::SimpleLinkExtor it doesn't have to be more complicated than:
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

[download]
Do read the docs for HTML::SimpleLinkExtor as it has a lot more functionality, for instance what kind of links you want to extract.

CountZero

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." - The Tao of Programming, 4.1 - Geoffrey James

In Section Seekers of Perl Wisdom