Link Checker

For mig at se skulle der være gode chancer, hvis du bruger CPAN-modulerne LWP::UserAgent og HTTP::Request. Det burde kunne lade sig gøre at rent faktisk åbne hver enkelt link, og enten få fejl, eller det rent faktiske indhold af siden (som man kan vælge at smide væk).

Her er noget kode:

use strict;

sub testlink
{
  my $link = shift(@_);

  use HTTP::Request;
  use LWP::UserAgent;


  my $ua;
  my $request;
  my $response;

  print \"\\$link = $link\\n\";

  print \"test 0\\n\";
  $ua = new LWP::UserAgent;
  print \"test 1\\n\";
  $request = new HTTP::Request(\'GET\', $link);
  print \"test 2\\n\";
  $response = $ua->request($request);
  print \"test 3\\n\";

  return $response->is_success;
}

if (testlink( \'http://localhost/version2/indexxx.html\' )) {
  print \"OK\\n\";
}
else {
  print \"not OK\\n\";
}

if (testlink( \'http://localhost/version2/index.html\' )) {
  print \"OK\\n\";
}
else {
  print \"not OK\\n\";
}

Det er en subroutine testlink, som kaldes med linken som parameter og returnerer \'true\' eller \'false\' afhængig af om linken virker eller ej. Bemærk, at den faktisk accesser linken, så hvis du har rigtig mange, er det måske ikke noget, du gider at gøre hver eneste gang.

Mvh
Jesper Naur

Du vil sikkert vælge at smide mine testudskrifter ud!

Hvis du skriver

  $request = new HTTP::Request(\'HEAD\', $link);

i stedet for

  $request = new HTTP::Request(\'GET\', $link);

vil den kun hente headeren af HTTP-siden, det må virke hurtigere.

Her er de 100 point til Jesper, da han kom med en brugbar løsning til mit problem!!