Zeilenumbrüche entfernen

[Florian Auer]

Aber natürlich :)

--------------- 8X ----------------

open (DATA, "<liga.dat") die "Ein Fehler ist aufgetreten beim Öffnen der Datei liga.dat";
while (<DATA>)
{
                print $_;              ### Hier wird der Inhalt ausgegeben
                $_ =~ s/\n//g;         ### Da sollen die Zeilenumbrüch entfernt werden (Unix)
  push (@Daten, $_);     ### Das Array ist leer
                print @Daten;          ### Folgerichtig wird auch nix ausgegeben

}  

close (DATA);

--------------- 8X ----------------

Ich hoffe, ich habe nicht zu schlampig gearbeitet ;)

Nochmal danke,
   Florian Auer