chekke for broken links?

Jeg vil meget gerne henvise dig til nogen, der allerede har gjort det. Jeg ved godt
at det ikke er så smart hvis du vil være en \"haj\", for så er det bedre at lave det fra
grunden. Men mon ikke du kan lære lidt ved at kigge på scriptsene i:
http://www.hotscripts.com/Perl/Scripts_and_Programs/Link_Checking/

hmmm ok, nu har jeg prøvet nogle af dem jeg har prøvet!
Men Dem je ghar prøvet, kan ikke chekke om URL med kodeord i virker, f.eks:
www.eksperten.dk/spm/22632" target="_blank">http://user:name@www.eksperten.dk/spm/22632
det jeg fandt brugte noget med \"head($attr_value)\"?

Med venlig hilsen
Simon

Det har du givetvis ret i.... Der kræver jo at man bruger en del af HTTP-protokollen,
som handler om overførsel af passwords, og at man iøvrigt fanger URL-en rigitg, med
den der @ i. Det sidste er nemt at rette i et skript, men det første ... tjah ....  hvor
vigtigt er det?

well det er en stor del af det!
jeg har hørt om andre scripts som kan gøre det, så det må vel kunne lade sig gøre på en eller anden lumsk måde?

Ja, ja, det kan lade sig gøre. Et Perl-program kan sagtens simulere hele HTTP-protokollen.
Nu nævner du navn:pass i forbindelse med eksperten.dk - kan man det?

Hvad med om du fandt et nogenlunde fornuftigt script, som kan alt det andet, og så må
vi (eller andre) kigge på om det kan udvides?

ja jeg ka da godt prøve at finde et men jeg har

ik fundet noget godt endnu.
Som nævnt før havde jeg fundet et, men jeg har stadig ik fattet helt hvad alle de kommandoer gør, jeg kan prøve at finde det frem, så ka i måske også forklare lidt om hvad de forskellige ting gør?

ok, her er noget jeg har fundet:
(jeg har klippet det ud, det hele er ik med, men det \"vigtigste\")

sub check_links {

  use HTML::LinkExtor;
  use LWP::Simple qw(get head);

  # get url from form and retrieve
  $base_url = $FORM{\'url\'};
  $parser = HTML::LinkExtor->new(undef, $base_url);
  $parser->parse(get($base_url));
  @links = $parser->links;


  # Loop through links and check validity
  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 \"<a href=\\\" $attr_value \\\" target=\\\"\\_blank\\\">\\n\";
            print \"  $attr_value: <\\/a><b>\", head($attr_value) ? \"OK\" : \"BAD\", \"<\\/b><br>\\n\";
        }
    }
  }
}

nevermind...