Datem-extention

[Struppi]

also die Log-Datein werden in @Zeilen kopiert und sie wird dann zeilenweise ausgegeben:

open(DATEI,"<$Name") || die "Datei nicht gefunden!!!\n";
my @Zeilen = <DATEI>;
close(DATEI);

foreach(@Zeilen) {
print "$_<br>\n";
}

Das würde ich auf keinen Fall machen!
Logdateien sind naturgemäß sehr gross und du liest die Datei komplett und unnötigerwiese in den Arbeitspeicher, was sicher ein performance killer sein kann.

open(DATEI,"<$Name") || die "Konnte Datei nicht öffnen, weil: $!";
while(<DATEI>) {
  print "$_<br>\n";
}
close DATEI;

Struppi.