How do i check links in a web page

[bijuperl]

I have a web page(index.html) which contains links to all the pages in the website.
I want to write a perl script which will check whether the links are correct.
If there is any working script, it would be very helpful.
I'm using the IDE "ActivePerl" for Windows.

 

[goBoating]

Wrap this in a loop and you're done.

#!/usr/local/bin/perl
use LWP::Simple;
$url = '[URL unfurl="true"]http://www.nationalreview.com/';[/URL]
$started = time;

# this will get the HTML text
$content = get($url);
print "$content";
[code]
 'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

 

[fremont]

I tried puttin this in a loop and had no luck. I would also like to check if web links on a web page are valid. I just want to check the links not any mail to stuff or any other complicated stuff.

Here is my forloop attempt:
[tt]
foreach $url (@url) {
$TheCheck = get($url);
if($url ne "&quot { print "OK: $url\n" }
else { print "Fail: $TheURL\n" }
}[/tt]