html-datei mit perl lesen

[Hennerfeind]

Jetzt hab ichs!!!

use HTML::LinkExtor; ist das Stichwort.

Hier ein kleiner Codeschnipsel:

use HTML::LinkExtor;

neues Parser-Objekt

$p = HTML::LinkExtor->new();

lokale Datei öffnen und parsen

parse_file() wird von HTML::Parser geerbt.

$p->parse_file('/usr/local/httpd/htdocs/index.html');

Ausgabe der Ergebnisse

for ($p->links() ) {
         print "@{$_}\n";
}