Probleme mit grep (Datenbanken und Verzeichnisdienste)

[thread]14448[/thread]

Probleme mit grep

Leser: 19

Articles: hide open all | hide show old branches

+5 replies
Gast Fabian

2010-01-05 14:09

Hallo zusammen,

ich habe das Problem dass aus mir unersichtlichen Gründen einige Einträge durch grep aus einem array gelöscht werden obwohl sie eigentlich dem filter entsprechen. Mein Filter sieht wie folgt aus:

my $filter = ".*\.log\$";

und wird wie folgt angewandt:

opendir (DIR, $Unterverzeichnis) || die &error("Couldn´t open File: $ziel_verzeichnis \n" , 1);

my @zippeintraege = grep{/$filter/} readdir(DIR);
closedir (DIR);

Es sollen also alle Dateien die auf .log enden im array @zipeintraege gespeichert werden.
komischerweise wird z.B. die Datei country.be-2009-12-19-00-00003.log gespeichert, die Datei country.be-2009-12-20-01-03722.log aber nicht.
Es scheint relativ willkürlich zu sein, da in einer anderen Umgebung wieder andere Dateien ausgefiltert werden.
Woran kann dies liegen?
- pq
  
  2010-01-05 14:20
  User since
  2003-08-04
  12209 Artikel
  Admin1
  zunächst mal ist der backslash vor dem punkt in $filter völlig unnötig, denn er verschwindet sowieso und ist dann in $filter selbst nicht mehr vorhanden. was dann bedeutet, dass er in anwendung der regex als punkt, also beliebiges zeichen, gedeutet wird.
  wenn du einen backslash in einen string schreibst, der mit double-quotes geschrieben wird, dient der slash zum escapen von irgendetwas, z.b. dem dollarzeichen. statt
  "$foo"
  schreibt man also
  "\$foo"
  wenn man wirklich ein dollarzeichen haben will.
  im string steht dann letztendlich
  $foo
  
  wenn du also schreibst
  "\.log\$"
  steht im resultierenden string leider nur noch
  .log$
  
  wenn du also eine regex mit einem escapten punkt haben willst, kannst du entweder
  my $filter = ".*\\.log\$";
  oder
  my $filter = qr{.*\.log$};
  schreiben.
  das zweite mit dem qr{} ist sozusagen schon ein regex-quoting.
  
  das ganze erklärt noch nicht, warum manche dateien nicht mit im array landen, obwohl sie .log heissen, aber es ist gut, solche fehler erstmal zu beseitigen.
  
  was du jetzt machen kannst:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use Data::Dumper; $Data::Dumper::Useqq = 1; my @zippeintraege = grep { if (m/$filter/) { 1 } else { print "Did not match '$filter':\n"; print Dumper $_; 0 } } readdir(DIR);
  
  dann siehst du genau, wo es nicht matcht, und bekommst die variable nochmal angezeigt.
  vielleicht landen ja schon einige einträge gar nicht in der schleife.
  man sollte sowas immer prüfen, da man sonst den fehler vielleicht an der ganz falschen stelle sucht.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- Taulmarill
  
  2010-01-05 14:21
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Evtl. passen die Dateinamen nicht auf deinen Regex, weil sie anders aussehen als du glaubst. Z.B. könnte ein Leerzeichen am ende des Namens ein Problem sein, so was übersieht man leicht.
  
  Auch möglich aber m.E. unwahrscheinlicher ist, dass der Filehandle DIR noch woanders benutzt wird und das dein Programm durcheinander bringt. So was kann man umgehen, indem man s.g. Lexikalische Filehandles benutzt, etwa so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  opendir (my $dir, $Unterverzeichnis) || die &error("Couldn´t open File: $ziel_verzeichnis \n" , 1); my @zippeintraege = grep{/$filter/} readdir($dir); closedir $dir;
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - pq
    
    2010-01-05 14:25
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    2010-01-05T13:21:49 Taulmarill
    indem man s.g. Lexikalische Filehandles benutzt
    
    und die lektüre dazu:
    WasIsteinLexikalischerFileHandle
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- pq
  
  2010-01-05 14:22
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  noch ne weitere frage, wieviel dateien hast du denn da in dem verzeichnis?
  mit einem grep lädst du alle auf einmal in den speicher, das ist ungünstig, wenn es viele sind. dann lieber mit einer while-schleife iterieren und mit push ins array schieben.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2010-01-05 14:09.