#!/usr/bin/perl
use warnings;
use strict;
use HTML::Parser;
# Hier wird jedes Start-Tag ausgewertet
sub parse_start {
return unless $_[0] eq 'img'; # nur IMG-Tags
return unless exists $_[1]->{alt}; # alt-Attribute vorhanden?
my $alttext = $_[1]->{alt};
# mach was mit $alttext
print ">>>\n$alttext\n<<<\n";
}
# Parser definieren
my $p = HTML::Parser->new ( api_version => 3,
start_h => [ # Handler fuer Start-Tags
\&parse_start, 'tag, attr' # Uebergib Tag und Attribute
],
);
# Start des Parsers, hier mit Daten aus dem _ _DATA_ _ Anhang
$p->parse_file(*DATA);
_ _DATA_ _
