Zeilenumbrüche

[Kai Diefenbach]

Hallo Joerk

hast Du evtl. mal geschaut, was den so in $text steht?

$text =~ s/(.)/sprintf('%#o',ord($1))/seg;
print $text;

zeigt mir jedenfalls, daß Perl beim einlesen von Textdateien automatisch aus einm \015\012 ein \012 macht. In deinem Text steht also nur \012\012 - und da funktioniert die RegExp auch. Wenn Du jedoch per "binmode DATA;" diese Konvertierung abschaltest ...

Hey, das scheint mir die Loesung zu sein.
Danke, war ich doch schon fast verzweifelt ; )

[viele andere gute Tipps]

Danke, fuer die wirklich guten Anregungen !

Viel Spaß,

Jepp !

Jörk

Gruss
   Kai