Nochmal Perl (aber dringend)

[Cosmo]

while(<DAT>){
      push(@dat,$_);
    }
    close(DAT);

Wenn im Programm nichts anderes angegeben wurde, arbeitet PERL mit den Defaultwerten (Skalar) $_ und (Array) @_ .
In diesem Fall wird die erste Zeile der mit 'DAT' geöffneten Datei in $_ eingelesen und anschließend hinten an den Array @dat angehängt, danach erfolgt dasselbe mit der zweiten
Zeile, usw. bis die Datei keine Zeilen mehr hat. Dann kommt 'undef' als Wert zurück und die while-Schleife bricht ab.

Viele Gruesse
Cosmo