sigma
stranger
May 16, 2001, 5:41 AM
Post #2 of 2
(506 views)
|
|
Re: How do i find broken links?
[In reply to]
|
Can't Post
|
|
#!/usr/bin/perl
use LWP::UserAgent;
sub checklink {
my ($url) = @_;
my $agent = new LWP::UserAgent;
my $request = new HTTP::Request HEAD => $url;
my $result = $agent->request($request);
if ($result->is_error) {
return "Error: ".$result->status_line;
} else {
return "OK: $url";
}
}
print checklink('http://www.steve.sk'), "\n";
driven by perl...
|
MAIN
SEARCH
WHO'S 
LOG 