Logdatei ab bestimmter Zeile durchsuchen (gelöst) - #165131 (Allgemeines zu Perl)

FIFO

2013-01-22 20:40

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Ist der ganze Inhalt der Zeile 'Verschieben', oder beginnt sie nur damit?
Im ersten Fall: Denk dran, das Zeilenendezeichen zu entfernen (chomp()), wenn Du zeilenweise von einem Handle liest (gilt übrigens auch für <STDIN>).
Ansonsten: nicht auf Gleichheit (eq) prüfen, sonder Regulären Ausdruck verwenden:

Code (perl): (dl )

while (my $line = <LOG>) {
    $cversch++ if $line =~ /^Verschieben/;  # 'Verschieben' am Zeilenanfang

# usw.
}

Wenn Groß-Kleinschreibung ignoriert werden soll: /^Verschieben/i

edit Ach ja, unbedingt empfehlenswert am Anfang aller Deiner hoffentlich zahlreichen zukünftigen Perl-Skripte:

Code (perl): (dl )

1
2

use strict;
use warnings;

Editiert von FIFO: Ergänzung zu chomp()
Last edited: 2013-01-22 20:51:12 +0100 (CET)

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"