Array nach Zeichen durchsuchen und ersetzen

[Siechfred]

Hell-O!

Per Filehandle lese ich eine XML Datei in das Array @Zeilen

Das machst du recht umständlich, du kannst den Inhalt auch direkt zuweisen:

open FH, $file || die "Can't open $file: $!";  
flock FH, LOCK_SH;  
my @lines = <FH>;  
close FH;

Im XML File gibt es nun einen Value der einen Text mit HTML Entities enthält. Diese möchte ich jetzt Zeile für Zeile suchen und ersetzen.

Dann tue dies, entweder beim Einlesen direkt:

use [link:http://search.cpan.org/~gaas/HTML-Parser-3.55/lib/HTML/Entities.pm@title=HTML::Entities];  
my @lines;  
open FH, $file || die "Can't open $file: $!";  
flock FH, LOCK_SH;  
while(<FH>) {  
  push @lines, decode_entities($_);  
}  
close FH;

Oder mit Hilfe von map:

use [link:http://search.cpan.org/~gaas/HTML-Parser-3.55/lib/HTML/Entities.pm@title=HTML::Entities];  
open FH, $file || die "Can't open $file: $!";  
flock FH, LOCK_SH;  
my @rawdata = <FH>;  
close FH;  
my @lines = map { decode_entities($_) }, @rawdata;

Du siehst, es führen viele Wege nach Rom :-)

Siechfred