Reguläre Ausdrücke (gelöst) (Allgemeines zu Perl)

[thread]17571[/thread]

Reguläre Ausdrücke [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 29

Articles: hide open all | hide show old branches

+12 replies
Trommelwirbel

2012-07-19 12:19
User since
2011-11-10
28 Artikel
BenutzerIn
Hallo Leute,

ich hab ein hoffentlich triviales Problem. Und zwar möchte ich den Ausdruck zwischen 2 Zeichen ausgeben. Das mache ich einfach mit:
Code (perl): (dl )

1 2 3 4 5 6

my $b = "#CNAMESWE;*;"; my $zeichen = ";*;"; if($b=~/#(\w+)$zeichen/){ print "gefunden: ",$1; }
Jetzt hab ich das Problem, dass wenn mein String ein Trennungszeichen beinhaltet, wie z.b "-" oder auch "." er das nicht mehr findet. Kann man irgendwie sagen, dass Trennungszeichen ignoriert werden sollen?

Gruß Trommelwirbel
- +2 replies
- Molaf
  
  2012-07-19 12:27
  User since
  2007-10-11
  119 Artikel
  BenutzerIn
  Hallo,
  das \w sucht nur nach Buchstaben im weitesten Sinne, deswegen scheitert die Suche bei anderen Zeichen. Der Punkt akzeptiert jedes beliebige Zeichen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $b = "#CNAMESWE;*;"; my $zeichen = ";*;"; if($b=~/#(.+)$zeichen/){ print "gefunden: ",$1; }
  - clms
    
    2012-07-19 17:51
    
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    Statt /#(.+)$zeichen/ würde ich die non-greedy Variante /#(.+?)$zeichen/ empfehlen, für den Fall, dass die Endmarkierung mehrfach im String vorkommt.
    
    Zum Escapen in $zeichen hat pq ja schon etwas geschreiben.
- +9 replies
- pq
  
  2012-07-19 12:29
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  ich hoffe, du bist dir bewusst, dass der regex-teil ;*; nicht den string ;*; matcht.
  du könntest in der regex auch /*; schreiben oder irgendetwas.
  ;*; matcht ein semikolon beliebig oft (also im zweifel null mal) und dann ein semikolon.
  wenn du einen stern matchen willst, musst du ihn in einer regex escapen, genauso wie den punkt, das fragezeichen oder sonstige regex-sonderzeichen.
  
  in dem fall:
  my $zeichen = ";\\*;";
  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
  - +8 replies
  - GUIfreund
    
    2012-07-19 13:59
    
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2012-07-19T10:29:33 pq
    wenn du einen stern matchen willst, musst du ihn in einer regex escapen, genauso wie den punkt, das fragezeichen oder sonstige regex-sonderzeichen.
    
    in dem fall:
    my $zeichen = ";\\*;";
    
    Zur Klarstellung für den OP noch etwas ausführlicher:
    
    Wenn du statt dessen schreibst
    my $zeichen = ";\*;";
    so ändert das nichts an dem String in $zeichen und damit am Matching. Eine andere Möglichkeit zur Korrektur ist
    my $zeichen = quotemeta(";*;");
    Gruß
    GUIfreund
    - +7 replies
    - betterworld
      
      2012-07-19 18:27
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      Eine Möglichkeit wäre auch:
      
      Code: (dl )
      
      my $zeichen = ";[*];";
      
      Das nutzt einen Trick, und zwar eine Zeichenklasse (also die eckigen Klammern, die normalerweise zum Matchen eines von mehreren Zeichen benutzt werden). Der Trick dabei ist, dass in den eckigen Klammern die Sternchen keine Spezialbedeutung haben. Und eckige Klammern bringen nicht so viele Escaping-Probleme mit sich wie Backslashes.
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - +6 replies
      - topeg
        
        2012-07-19 19:35
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Bei einem perl >= 5.10 würde ich schreiben:
        $b=~/#(.+)\Q$zeichen/
        
        +5 replies
        
        pq
        
        2012-07-19 19:42
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        warum 5.10?
        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
        
        +4 replies
        
        topeg
        
        2012-07-19 20:22
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wurde das \Q \E schon früher implementiert? Ich bin mir sicher in 5.6 war es noch nicht drin.
        
        +3 replies
        
        pq
        
        2012-07-19 20:26
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        das gibts schon seit mindestens 5.005_03
        https://metacpan.org/module/LBROCARD/perl5.005_03-...
        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
        
        topeg
        
        2012-07-19 20:28
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ah, Ok, danke war mir nicht bekannt.
        
        Trommelwirbel
        
        2012-07-20 09:42
        
        User since
        2011-11-10
        28 Artikel
        BenutzerIn
        
        Danke für die ausführlichen Erklärungen, es hat mir alles weitergeholfen.
        
        Somit schließ ich ihn.
        
        Danke!

View all threads created 2012-07-19 12:19.