nicht angemeldet
Hallo,
ich habe derzeit ein Problem mit der eigentlich wunderbaren Funktion "join". Folgendes Beispiel funktionniert einwandfrei:
----------cut----------
@liste = ("Dies", "ist", "ein", "test");
$ergebnis = join ' ', @liste;
print $ergebnis;
----------cut----------
Dieses Beispiel funktionniert fabelhaft und die Ausgabe auf der Kommandozeile ist: Dies ist ein test
Wenn ich jedoch versuche das gleiche mit einer .txt-Datei zu machen wobei der Inhalt der Datei im Array @liste gespeichert wird, stosse ich auf das Problem, dass wenn ich nur eine Zeile in die Datei geschrieben habe, die Woerter in dieser Zeile ohne das ' ' dazwischen ausgegeben werden. Wie kann ich das hinbekommen.
Wenn ich die Woerter in der Datei untereinander, d.h. jedes in eine eigene Zeile schreibe, erscheint folgendes Ergebnis:
Dies
ist
ein
test
Wie kann ich es machen, dass die Woerter nebeneinander stehen ?
Der Quelltext sieht wie folgend aus:
----------cut----------
open(IN, "<test.txt");
@liste = <IN>;
close(IN);
$ergebnis = join ' ', @liste;
print $ergebnis;
----------cut----------
Danke
Chris Weber