Hi bovo,
open(DATEI, "<text.txt") || die " File not found.";
@tests = <DATEI>;
Besser wäre an dieser Stelle das zeilenweise Einlesen mit while.
while(! eof(DATEI)){
Das hier ist imho überflüssig.
@tests =~ /(.*),(.*)/;
Hier wäre die Verwendung der split-Funktion angebrachter:
@test = split (/,/, $zeile);
Viele Grüße
Torsten
--
Feed your ears: http://www.siechfreds-welt.de/alchemist.html
Feed your ears: http://www.siechfreds-welt.de/alchemist.html