Re: Link-Checker für Web-Seiten

From: Christian Schneider <bofh(at)3d-crew.com>
Date: 30 Mar 2002 21:12:22 +0100

Hi,

 * Stefan Jahn schrieb am 30.03.2002:

> [..]
> kennt einer ein Tool womit ich meine kompletten Web-Seiten auf defekte
> Links durchsuchen kann? Die meisten Tools die ich im Internet gefunden
> habe sind leider nur für Windows vrfügbar.
> [..]
man perl *scnr*

,----[ http://wwwinfo.cern.ch/pdp/ose/perl/examples/pcook/ch20/churl ]
| #!/usr/bin/perl -w
| # churl - check urls use HTML::LinkExtor;
| use LWP::Simple qw(get head); $base_url = shift
| or die "usage: $0 <start_url>\n";
| $parser = HTML::LinkExtor->new(undef, $base_url);
| $parser->parse(get($base_url));
| @links = $parser->links;
| print "$base_url: \n";
| foreach $linkarray (@links) {
| my @element = @$linkarray;
| my $elt_type = shift @element;
| while (@element) {
| my ($attr_name , $attr_value) = splice(@element, 0, 2);
| if ($attr_value->scheme =~ /\b(ftp|https?|file)\b/) {
| print " $attr_value: ", head($attr_value) ? "OK" : "BAD", "\n";
| }
| }
| }
`----

..HTH..

-- 
http://3d-crew.com
Maybe his humor DLL file got corrupted...  
Or maybe... general humor fault? hmmmm (Kenneth R. Kinder)
To Unsubscribe: send mail to majordomo(at)de.FreeBSD.org
with "unsubscribe de-bsd-questions" in the body of the message
Received on Sat 30 Mar 2002 - 21:12:28 CET

search this site