Zeilenumbrüche suchen und finden.

[rolfrost]

hi Torsten,

Und mit $scalar =~ s/\n//g; könnte man sie rausschmeißen.
Vorsicht, da fliegen alle raus: ich hab extra die Anker gesetzt

Jo, aber wenn ich den OP richtig verstanden habe, ist der gesamte Inhalt seiner Textdatei in einem Skalar. Also wird er wohl weder mit meiner noch mit deiner Lösung zum gewünschten Ergebnis kommen :-) Aber ich gehe mal davon aus, dass er fähig genug ist, aus deiner und meiner Antwort ein vernünftiges Konzept für sein Problem zu entwickeln.

Jow, wir machen es anders:
=scr
use strict;

my $s = qq(

erwin

rolf

);

wir splitten den string in ein array...

my @ziles = split /\n/, $s;

... und schmeißen die Leerzeilen raus

foreach my $zeile( @ziles ){
 print "$zeile\n" if $zeile gt "";
}
=cut

PS: Heute ist Feiertag *hüpf*

Bei uns morgen - ist aber blödsinn weil sowieso frei ;-)

Viele Grüße, Rolf