Regex funktioniert nicht (gelöst) (Allgemeines zu Perl)

[thread]20429[/thread]

Regex funktioniert nicht [gelöst]

Tags: perl5 linux regex grep Nested quantifiers Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+4 replies
Gast Rifki

2018-02-20 17:18
Hallo liebe Community,

nachdem ich sehr viel gelesen habe, komme ich gerade absolut nicht weiter. Ich habe ein Programm geschrieben, dass und Windows (Win 10 x64(v5.26.0) built for MSWin32-x64-multi-thread) funktioniert und Ergebnisse liefer, unter Linux (Ubuntu 16.04.3 LTS x64) einen Fehler ausgibt.
Es geht konkret um folgende Zeile:
Code: (dl )

@funde_liste = grep { m/^$zwischen\t/i } @inhalt_pruef;
Was unter Linux zu folgender Fehlermeldung führt:

Quote
Nested qunatifiers in regex; marked by <-- HERE in m/^** <-- HERE \t/t

Ich weiß nun nicht, was ich ändern soll, da es unter Windows funktioniert.

Vielen Dank für eure Hilfe
Rifki
Last edited: 2018-02-20 21:07:44 +0100 (CET)
- +3 replies
- FIFO
  
  2018-02-20 22:14
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Das hat mit Windows vs. Linux erstmal nichts zu tun. In Deiner Variablen $zwischen steht eben was, das mit "**" beginnt. Im RegEx-Suchmuster wird die Variable interpoliert und die zwei * als "nested quantifiers" moniert.
  Abhilfe (hier falsch, siehe unten):
  
  Code (perl): (dl )
  
  @funde_liste = grep { m/^ \Q ${zwischen}\E \t/xi } @inhalt_pruef;
  
  \Q ... \E maskiert die "special chars" (hier die *).
  Tip am Rande: Ich habe mir angewöhnt, Variablen innerhalb RegExes immer in der Form ${foo} statt $foo zu schreiben, das macht vieles klarer :)
  
  Korrektur
  Auf das \Q darf nicht ein Leerzeichen folgen, der /x-Modifier nützt da nichts.
  Richtig ist:
  
  Code (perl): (dl )
  
  @funde_liste = grep { m/^\Q${zwischen}\E\t/i } @inhalt_pruef;
  
  oder quotemeta():
  
  Code (perl): (dl )
  
  1 2
  
  $zwischen = quotemeta $zwischen; @funde_liste = grep { m/^${zwischen}\t/i } @inhalt_pruef;
  
  Last edited: 2018-02-20 23:52:38 +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"
  - +2 replies
  - Gast Rifki
    
    2018-02-21 22:10
    
    Ich habe es eingebaut und: es funktioniert. Vielen Dank für die Mühe und die Hilfe. (und gelernt habe ich auch noch etwas)
    Last edited: 2018-02-22 11:46:42 +0100 (CET)
    - GwenDragon
      
      2018-02-23 20:02
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Ist dein Problem damit gelöst?
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2018-02-20 17:18.