regex: Bestimmte Bereiche ignorieren (Allgemeines zu Perl)

[thread]15398[/thread]

regex: Bestimmte Bereiche ignorieren

Tags: regex Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+6 replies
Gast Jeff

2010-08-21 17:53
Hallo,
ich schreiben im Moment ein Script, welches im Quellcode von C-ähnlichen Sprachen fehlende eckige Klammern ({ und }) findet. Es funktioniert, allerdings will ich, dass { und } Klammern, die in Zeichenketten, zum Beispiel:
Code: (dl )

char mystring[] = "{ 1 2 3"
, sind, ignoriert werden.
Außerdem sollten { und } Klammern auch in Kommentaren (Keine # Kommentare, sondern // und /* */ Kommentare) ignoriert werden.

Mit Hilfe von Google konnte ich bisher nur herausfinden, wie man Zeichen in Anführungsstrichen extrahiert aber nicht, wie man diese aus der Suche ignoriert.

Danke im Voraus für Antworten.
Last edited: 2010-08-21 17:54:43 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2010-08-21 18:02
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Mit Text::Balanced kannst du in bestimmte Zeichen eingeschlossene Zeichenketten auslesen.
  
  Was hast du denn schon ausprobiert? Zeige doch mal deinen Code.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Gast Jeff
    
    2010-08-22 17:40
    Ich habe nun das Modul ein bisschen ausprobiert und eine Frage:
    Warum funktionieren die Funktionen nicht, wenn vor dem zu ignorierendem Teil etwas davor ist?
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    use strict; use warnings; use Text::Balanced qw( extract_delimited ); # wenn $text = "'467'123"; funktioniert es my $text = "567'456'123"; # so nicht my @extracted = extract_delimited($text, "'", ''); print $extracted[0], "\n", $extracted[1], "\n";
    
    Hier ist mein bisheriger Code:
    http://pastebin.com/iWkTJs5n
    
    Mit Sicherheit lässt sich das mit VIEL weniger Code umsetzen, aber es ist mein erster wirkliches Perl Script und kenne noch nicht alle Module und Funktionen.
    
    Das mit den Kommentaren hatte ich schon vorher implementiert, allerdings hat es einige Tücken. Diese Zeile würde das Script bisher vollständig ignorieren:
    somefunction(); // Kommentar
    Da ich vorher nicht wusste wie ich den Kommentar raus bekomme.
    Und derartige Kommentare bringen das Script ganz durcheinander:
    somefuntion(/* Kommentar*/);
    Und wenn mehrere Klammern in einer Zeile sind, beachtet er nur die erste.
    Last edited: 2010-08-22 17:44:22 +0200 (CEST)
    - +2 replies
    - MatthiasW
      
      2010-08-22 18:58
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Guest Jeff
      Ich habe nun das Modul ein bisschen ausprobiert und eine Frage:
      Warum funktionieren die Funktionen nicht, wenn vor dem zu ignorierendem Teil etwas davor ist?
      
      Das klappt nicht, weil du explizit angibst, dass die Zeichenkette ('...') am Anfang des Textes stehen muss.
      
      So sollte es klappen: (Ich habe die Doku nur kurz überflogen, es geht daher womöglich eleganter)
      
      Code (perl): (dl )
      
      1 2 3
      
      my $text = "123 '456' 789"; my( undef, $post, $pre ) = extract_delimited( $text, qr/'/, qr/[^']*/ ); $text = ($pre || '') . $post;
      
      Ansonsten könntest du dir meinen Alternativvorschlag mit regulären Ausdrücken ansehen. (Werde es gleich noch aktualisieren, da mir ähnliche Fehler passiert sind, wie dir ;-)
      
      In deinem Skript scheinst du dir doppelte Arbeit zu machen - die Datei wird 2x analysiert - und außerdem übersieht es einige Fehler: } { kommt durch, weil die Anzahl an öffnenden gleich der Anzahl an schließenden geschweiften Klammern ist.
      
      Darüber hinaus sieht es recht umständlich und aufgebläht aus. Die aktuelle Zeilennummer der zuletzt benutzten Datei findest du bspw. in $.. (perlvar)
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - Gast Jeff
        
        2010-08-23 17:41
        
        2010-08-22T16:58:48 MatthiasW
        Guest Jeff
        Ich habe nun das Modul ein bisschen ausprobiert und eine Frage:
        Warum funktionieren die Funktionen nicht, wenn vor dem zu ignorierendem Teil etwas davor ist?
        
        Das klappt nicht, weil du explizit angibst, dass die Zeichenkette ('...') am Anfang des Textes stehen muss.
        
        So sollte es klappen: (Ich habe die Doku nur kurz überflogen, es geht daher womöglich eleganter)
        
        Code (perl): (dl )
        
        1 2 3
        
        my $text = "123 '456' 789"; my( undef, $post, $pre ) = extract_delimited( $text, qr/'/, qr/[^']*/ ); $text = ($pre || '') . $post;
        
        Ansonsten könntest du dir meinen Alternativvorschlag mit regulären Ausdrücken ansehen. (Werde es gleich noch aktualisieren, da mir ähnliche Fehler passiert sind, wie dir ;-)
        
        In deinem Skript scheinst du dir doppelte Arbeit zu machen - die Datei wird 2x analysiert - und außerdem übersieht es einige Fehler: } { kommt durch, weil die Anzahl an öffnenden gleich der Anzahl an schließenden geschweiften Klammern ist.
        
        Darüber hinaus sieht es recht umständlich und aufgebläht aus. Die aktuelle Zeilennummer der zuletzt benutzten Datei findest du bspw. in $.. (perlvar)
        
        MfG
        
        Danke für die Tipps und dein Listing. Vor allem interessant ist, wie du es mit einem Stack realisiert hast anstatt mein unnötiges Array mit den Schleifen.
        
        Meine Frage wäre dann beantwortet. Das mit den ignorieren von Kommentaren und Strings funktioniert jetzt und meinen Code konnte ich um die Hälfte kürzen.
        Last edited: 2010-08-23 17:48:02 +0200 (CEST)
- MatthiasW
  
  2010-08-21 21:02
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Ich würde die Kommentare und Zeichenketten aus dem Suchstring entfernen, bevor ich ihn auf geschweifte Klammern teste:
  
  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
  
  #!/usr/bin/perl use strict; use warnings; my( $code, @open ); while ( my $line = <> ) { $code .= $line; $code =~ s/'(?:\\.|[^'])*'|"(?:\\.|[^"])*"//g; # strip strings $code =~ s!/\*.*\*/!!g; # strip comments if ( $code !~ /["']|\/\*/ ) { # no open comment/string? $code =~ s!//.*!!; # strip eol-comments for ( split //, $code ) { push @open, $. if /\{/; if (/\}/) { warn "uncalled-for closing brace at line $.\n" unless @open; pop @open; } # if } # for $code = ''; } # if } # while warn @open ." open brace(s) not closed at line(s): ". join(", ", @open) ."\n" if @open;
  
  edit: } { Fehler korrigiert und Ausgabe erweitert.
  edit2: @open[0..$open-1] durch @open ersetzt ;)
  edit3: Code nochmals gekürzt
  
  MfG
  Last edited: 2010-08-23 18:30:01 +0200 (CEST)
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2010-08-21 17:53.