Perl-Loesung:
use LWP;
use LWP::Simple;
foreach $url (@liste) {
$status = &testen($url);
print "$url ist $status\n";
}
sub testen () {
$content=get("http://www.stift-keppel.de");
if ($content) {
return "weg";
} else {
return "noch frei";
}
}
Die Unterrutine liefert den Quellcode der Seite. Wenn es sowas gibt, dann existiert die Seite logischerweise.
Es kann aber auch sein, dass eine existierende Seite nichts zurueckgibt.
FAZIT:
Du kannst die Adressen, die als besetzt gemeldet werden, von deiner Liste streichen. Wenn eine URL als frei gemeldet wird, ist dies aber noch kein eindeutiger Beweis, dass das auch stimmt.