Opened by Catherina at 2012-03-23 09:21
User since
2006-05-04
564 Artikel
BenutzerIn
2006-05-04
564 Artikel
BenutzerIn
Hallo Catherina,
angenommen, die Zeilen seien tatsächlich so umbrochen, wie Du sie gepostet hast, dann könntest Du beim Einlesen vorübergehend den Datensatztrenner (Standard = Zeilenumbruch) umstellen. Das geht z.B. so in einem Block mit local:
HTH
Grüße
payx
PS: Nebenbei den Gebrauch von open verbessert.
angenommen, die Zeilen seien tatsächlich so umbrochen, wie Du sie gepostet hast, dann könntest Du beim Einlesen vorübergehend den Datensatztrenner (Standard = Zeilenumbruch) umstellen. Das geht z.B. so in einem Block mit local:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl -w my $inFile = "h.txt"; open (my $inFH, "<", $inFile) || die "Die Datei wurde nicht gefunden\n"; { local $/ = "====> "; while (<$inFH>) { chomp; print $_ . "-- 8><----\n"; } } close ($inFH);
HTH
Grüße
payx
PS: Nebenbei den Gebrauch von open verbessert.