Thread Dateien durchsuchen (war: Kann man das so machen1)
(5 answers)
Opened by rk-ger at 2006-08-29 00:53
[quote=rk-ger,28.08.2006, 22:53]
[/quote]
Sehr löblich. Quote Man kann unter DOS/Windows wie unter UNIX/Linux auch den Vorwärtsschrägstrich als Verzeichnistrenner benutzen, was meist etwas übersichtlicher ist. Code: (dl
)
my $startdir = 'C:/foo/bar/'; Quote Bei neueren Perl-Versionen wird die "3-Parameter-Form" von open() bevorzugt, weil sie sicherer ist. Ich persönlich bevorzuge es auch, beim Zusammensetzen von Pfad und Dateinamen explizit einen Pfadtrenner zu setzen (dann kann man ihn beim Pfadnamen problemlos weglassen). Code: (dl
)
open (IN, '<', "$startdir/$filename") or die "..."; Quote Es ist ineffizient, erst die ganze Datei einzulesen und dann zeilenweise durchzugehen. Besser direkt zeilenweise einlesen und abarbeiten. Auch kann man die Schleife abbrechen, wenn ein Treffer gefunden wurde (außer, es können mehrere Treffer in der Datei vorkommen und du möchtest immer gerade den letzten haben). Code: (dl
)
1 $NR_found = "0"; Quote Oder: if ($NR_found ne "0") ... |