Siechfred: Datei durchsuchen und bestimmte Teile speichern, sowie ausgeben

Beitrag lesen

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