Problem mit REGEX (gelöst) (Allgemeines zu Perl)

[thread]16745[/thread]

Problem mit REGEX [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
wiesensurfer

2011-09-22 07:40
User since
2011-06-01
36 Artikel
BenutzerIn
Hallo!
Ich versuche per REGEX zwei Teile aus einem String zu extrahieren, um diese weiter zu verwenden.

Hier mal ein kurzer Ausschnitt:
Code: (dl )

1 2 3 4 5 6

$row = "<Name>Test</Name>"; if($row =~ /<(\b[^>])+>(.*?)<\/$1>/ig) { $sTag = $1; $sValue = $2; }
Was dabei rauskommt ist leider nicht das, was ich erwartet hätte.
In $1 steht nichts, in $2 steht der gesamte String.
Ich hoffe, dass man erkennen kann, dass ich den Namen des Tags und den Wert als Ergebnis erwartet hatte.

Was mache ich falsch?
- +4 replies
- FIFO
  
  2011-09-22 08:14
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Hi,
  
  so geht's: /<(\b[^>]+)>(.*?)<\/\1>/i
  
  1. das '+' muss in die Capture-Klammern.
  2. Backreferences innerhalb des Suchmusters gehen mit '\1' usw.
  3. der /g-Modifier macht hier keinen besonderen Sinn.
  
  Gruß FIFO
  
  edit: Lesbarer ist:
  
  Code (perl): (dl )
  
  if ($row =~ m{ <(\b[^>]+)> (.*?) </\1> }ix)
  
  Dann brauchst Du den '/' nicht escapen, und die Leerzeichen strukturieren das Ganze (/x-Modifier).
  Last edited: 2011-09-22 08:19:58 +0200 (CEST)
  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"
  - +3 replies
  - wiesensurfer
    
    2011-09-22 08:58
    
    User since
    2011-06-01
    36 Artikel
    BenutzerIn
    
    Danke, das funktioniert super. Ihr (alle die solche tollen Lösungen haben) seid echt Klasse.
    - +2 replies
    - FIFO
      
      2011-09-22 09:30
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Aufpassen musst Du, wenn Tags andere Zeichen als [A-Za-z0-9_] enthalten, denn standardmäßig werden nur diese durch \w gematcht, bzw. der \b-Anker dort gesetzt.
      Ggf. use locale; verwenden, wenn Du z.B. Umlaute nicht ausschließen kannst.
      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"
      - moritz
        
        2011-09-22 15:17
        
        User since
        2007-05-11
        923 Artikel
        HausmeisterIn
        
        In fast allen Faellen ist es besser, Unicode und die richtigen Zeichenklassen zu benutzen, als locales zu bemuehen.
        Perl 6 - Perls Zukunft

View all threads created 2011-09-22 07:40.