# 1. HTML-Datei zum Lesen öffnen oder Fehler ausgeben.
# Inhalt in @dateiinhalt speichern.
# 2. Wenn in $dateiinhalt irgendwas kommt,
# speichere 'irgendwas' in $1 und lege es in @fonts ab,
# lösche den aktuellen Block, so dass er
# nicht nochmal verarbeitet wird.
my $datei = "fl.html";
my @dateiinhalt;
my @fonts;
# 1.
#open (HTML,"$datei") or
# die "Fehler beim Öffnen von '$datei': $!\n\n";
@dateiinhalt = ; # HTML
#close HTML or
# die "Fehler beim Schließen von '$datei': $!\n\n";
# 2.
for (@dateiinhalt) {
while (/(.*?)<\/font>/) {
# Tue mit $1 (= alles zwischen einem
# Block) irgendetwas
push @fonts, $1;
s/$1<\/font>//g;
}
}
print "$_\n" for @fonts;
__DATA__
TEST1
TEST2 blubb TEST3 laber
grunz