Regex: Suchen innerhalb eines Matches? (Allgemeines zu Perl)

[thread]19422[/thread]

Regex: Suchen innerhalb eines Matches?

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+9 replies
Muffi

2014-12-17 10:38
User since
2012-07-18
1465 Artikel
BenutzerIn
Hallo,

ich versuch grad Dateien mit einer Regex zu durchsuchen. Und zwar Pascaldateien.
Da drin gibts records (ähnlich struct in C) und die können auch Funktionen enthalten. Und die hätt ich gern gesucht. Und jetzt versuch ich grad das mit einer einzigen Regex zu schaffen, dann könnts mein Editor. Aber ich kriegs nicht hin.
Code (pascal): (dl )

1 2 3 4 5

TFoo = record ... function Bar(): Integer; ... end;
Also alle records (oder nur die/eine function, mir egal) markieren, die zwischen dem "record" und "end;" ein function haben.
1 + 1 = 10
- +3 replies
- renee
  
  2014-12-17 11:43
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Also wenn es um den Record geht, sollte doch
  
  Code: (dl )
  
  m{ (record .*? function \s* \w+ .*? end;) }xmsg
  
  gehen.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - Muffi
    
    2014-12-17 11:48
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Der findet irgendein end;
    
    edit: ich bräucht sowas wie
    record.*?end; und in dem .*? nach function suchen. Aber ich glaub sowas geht nicht.
    Last edited: 2014-12-17 11:53:07 +0100 (CET)
    1 + 1 = 10
  - clms
    
    2014-12-17 11:55
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    Ich kenne mich mit Pascal-Syntax nicht aus, aber Deine Regex würde auch
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    record ... end; function () ... record ... end;
    
    matchen, wo function bar() zwischen zwei Records steht (oder zwischen einem Record und einem anderen Block, der "end;" enthält.)
    
    Grundsätzlich rate ich dazu, in solchen Fällen die Keywörter in der Regex mit \b abzugrenzen, weil sonst das /end;/ auch "append;" matched. Aber das würde hier wohl nicht ausreichen.
- +5 replies
- payx
  
  2014-12-17 12:38
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Muffi,
  
  auf der Grundlage von Renees Vorschlag mit lookahead und negative lookahead, was Dein Editor vielleicht nicht kann:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
  
  #!/usr/bin/perl use strict; use warnings; my $s = <<ENDSTRING; TFoo = record ... no functions here ... end; TFoo = record ... event01 here function Bar(): Integer; ... end; TFoo = record ... no functions here eventually event02 here no functions here ... end; TFoo = record ... function Bas(): Integer; event03 here ... end; TFoo = record ... no functions here ... end; TFoo = record ... event04 here function Bat(): Integer; event05 here ... end; TFoo = record ... no functions here ... end; TFoo = record ... function Bau(): Integer; ... end; TFoo = record ... no functions here ... end; ENDSTRING print for $s =~ m{ (record (?:[^e]|\we|\be(?!nd;))+? function \s+ \w+ .+? end; \s*) }xmsg;
  
  HTH
  Grüße
  payx
  
  EDIT: \b vor e(?!nd;\b) entfernt, weil sonst keine anderen e im Block stehen dürften. (Damit tritt aber das von clms genannte Problem wieder auf.)
  
  EDIT 02: Jetzt wieder mit \b und etwas vereinfacht. Das sollte passen.
  Last edited: 2014-12-17 14:05:44 +0100 (CET)
  - Muffi
    
    2014-12-17 12:50
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Doch, die look-dingse kann er. (Notepad++)
    Laut Doku sagt er er hat eine Posix-Regex-Engine, was aber nicht so stimmen kann.
    
    Wenn ich im Text "Test" nach "Te|Test" such findet er "Te". Laut Posix müsste er das Längere finden. Mit einer Perl-Engine würde er "Te" finden, die nimmt das Erste.
    
    Achja, die Regex muss ich erstmal durchdenken :)
    Last edited: 2014-12-17 12:54:40 +0100 (CET)
    1 + 1 = 10
  - +3 replies
  - clms
    
    2014-12-17 14:17
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    Die Idee mit [^e]|e(?!nd) ist sehr gut. Man kann das Oder noch erweitern, indem man auf [^e]|\Be|\be(?!nd) testet:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
    
    use strict; use warnings; my $s = <<ENDSTRING; TFoo = record ... no functions here ... end; TFoo = record ... function Bar(): Integer; ... end; TFoo = record ... no functions here append; ... end; TFoo = record ... function Bar(): Integer; append; function Foo(): Integer; ... end; TFoo = record ... no functions here ... end; ENDSTRING print "$_\n" for $s =~ m/(\brecord\b([^e]*?|\Be|\be(?!nd\s*;))*?\bfunction\s+\w+.*?\bend\s*;)/msg;
    
    Last edited: 2014-12-17 14:18:48 +0100 (CET)
    - +2 replies
    - payx
      
      2014-12-17 15:11
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo clms,
      
      2014-12-17T13:17:43 clms
      Die Idee mit [^e]|e(?!nd) ist sehr gut. Man kann das Oder noch erweitern, indem man auf [^e]|\Be|\be(?!nd) testet
      
      Das hatte ich inzwischen nach mehrmaligem Nacheditieren ungefähr so gemacht (s. mein aktualisiertes Posting).
      
      Grüße
      payx
      
      PS: Du hast einige sinnvolle Erweiterungen eingebaut: \b, um es eindeutiger zu machen, und \s*, um es flexibler zu machen.
      Das sollte jetzt schon sehr nah an wirklich praxistauglich sein, denke ich.
      
      Editiert von payx: PS
      Last edited: 2014-12-17 15:15:32 +0100 (CET)
      - clms
        
        2014-12-17 16:00
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        Als ich meinen Beitrag abgeschickt hatte, habe ich Deine Änderung auch gesehen.

View all threads created 2014-12-17 10:38.