Hi,
mit dem folgenden Code wollte ich erreichen , dass die formatierten Zeilen in das array @tpt gespeichert werden.
Werden Sie aber nicht !?
nein, das kann ich mir denken ;-)
open ( LOG, "$FileName" ) die "can`t open $FileName : $!" ;
while (<LOG>) {
Dies entspricht der Zeile:
while ($_ = <LOG>) {
Es wird also eine Zeile (oder was immer $/ als Trennzeichen vorgibt) eingelesen und der magischen Variable $_ zugewiesen. Der Zeiger auf die Datei ist entsprechend weitergerückt.
write ;
Höh?
@tpt = <LOG> ; }
Hier wird der Rest aus der Datei eingelesen. Versuche lieber
push(@tpt,$_);
denn selbst _wenn_ obiges klappen würde, würdest Du das Array jedes Mal neu definieren.
Cheatah