Datei einlesen und Zeileumbruch entfernen

[Christian Kruse]

Hallo Glen,

Tausche den Inhalt der inneren Schleife durch das folgende aus:

local $/;
   open DATEI, '<',"$datei_dir/$datei" or die "Fehler bei open(< $datei): $!\n";
   my $datei = <DATEI>
   close DATEI;

$datei =~ s/\015\012|\015|\012/\t/g;

open DATEI,'>',"$datei_dir/$datei" or die "$datei: $!";
   print DATEI $datei;
   close DATEI;

So sollte es gehen.

Grüße,
 CK