Suche Perl-Code für MySQL-Hyperlinks

[soilant]

Habe bald einige tausend Hyperlinks in einer MySQL-Datenbank.
Möchte diese nun mit einem Perl-DBI-Script der Reihe nach nicht nur auslesen, sondern AUCH ANWÄHLEN lassen.
Anschliessend sollte ich irgendwie zu der Information kommen, welche der Links defekt sind...
P.S. Das reine Lesen der Links mittels Perl/DBI funktioniert bestens.

 

[GH@NDI]

Was meinst du mit "anwählen"?

Also eine HTTP-Anfrage stellen an den Link und testen, ob die Seite überhaupt besteht?

Das kannste mit LWP::UserAgent so machen:

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();

my $response = $ua->get($url);
if($response->is_success()) {
# Link ist intakt
}
else {
# Link ist kaputt
}

Weitere infos gibt perldoc LWP::UserAgent