Zeilenumbrüche in komplettem Array ersetzen

[Thorsten Steffen]

Hab einfach
chomp(@zeilen);
nach dem Schliessen der Datei angegeben, ist doch richtig so, oder ?
Funktioniert zumindest.

Gruß und Danke
Thorsten

Hallo Thorsten,

while(<DATEI>)
{
push(@zeilen,$_);
}
close (DATEI);
»»
Allerdings befindet sich danach am Ende jeder Zeile des Arrays ein Zeilenumbruch. Da ich mit regulären Ausdrücken nach bestimmten Tabelleninhalten suche, stört dies mich aber. Wie kann ich diese Zeilenumbrüche löschen ?

Mit einer kleinen Ergänzung im Einlesebereich:

chomp() (ab Perl5) entfernt das als $INPUT_RECORD_SEPARATOR bzw. $/ eingestellt Zeichen (Zeichenkette?) vom Ende des Strings. Die Voreinstellung ist Newline.

Gruß AlexBausW