Zeichenkette in Datei suchen - #100821 (Allgemeines zu Perl)

nepos

2007-10-15 13:07

User since
2005-08-17
1420 Artikel
BenutzerIn

Du machst da keinen Vergleich sondern eine Zuweisung. Zum Vergleichen musst du == für Zahlen und eq für Strings benutzen.
Kein richtiger Fehler, aber einmal chomp() reicht auch. Das musst du nicht nochmal für jede Zeile extra machen.

Ach ja, Filehandles sollte man besser so schreiben und bei open() die Variante mit 3 Argumenten benutzen, das ist sicherer:

Code (perl): (dl )

1
2
3

open (my $fh, '<', $logfile)...
my @file =<$fh>;
close($fh)

Daneben solltest du dir gleich angewöhnen, use strict; und use warnings in deinen Skripten zu benutzen. Durch strict wirst du z.B. gezwungen, deine Variablen mittels

Code (perl): (dl )

my $variable...

zu deklarieren.