Hilfe beim regexp benötigt (Allgemeines zu Perl)

[thread]13502[/thread]

Hilfe beim regexp benötigt

Tags: regex Ähnliche Threads

Leser: 26

Articles: hide open all | hide show old branches

+7 replies
toby

2009-05-11 16:12
User since
2006-04-14
66 Artikel
BenutzerIn
Hallo Gemeinde :)

ich habe eine Zeile mit folgenden kommaseparierten Mustern:

PREFIX::VALUE=WERT

Beispielzeile:

$line="P1::Va=Wb,P2::Vc=Wd,P1::Ve=Wf,P3::Vx=Wy,"

Ich muss nun diese Zeile so zerlegen, dass ich die einzelne kommaseparierte Teile rausbekomme. Besondere Schwierigkeit dabei: Werte können unter Umständen ein Komma beinhalten. Z.B. AUTO::GESCHWINDIGKEIT=12,3KM/H (sonst könnte ich das ganze einfach mit split erledigen). Desweiteren kann es sein, dass am Ende der Zeile ein Komma kommt, oder auch nicht...

Bis jetzt ist es mir folgendes gelungen:
Code: (dl )

1 2 3 4 5 6 7 8

$line="P1::Va=Wb,P2::Vc=Wd,P1::Ve=Wf,P3::Vx=Wy,"; printf "\n$line\n"; if($line =~ /(.*),(.*::.*=.*)/){ printf "\n$1\n"; printf "\n$2\n"; }
Jetzt könnte ich $2 aus $line ausschneiden und die Aktion wiederholen, bis $line leer ist. Das ist aber ziemlich umständlich und geht bestimmt direkt mit regulären Ausdrücken.

Weiss jemand einen Rat, wie ich aus $line auf einfache Weise (regexp) ALLE kommaseparierten Teile nach genanntem Muster rausbekomme?

Danke!
Toby
Last edited: 2009-05-11 16:36:11 +0200 (CEST)
- pq
  
  2009-05-11 16:42
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  wenn es mit menschlicher logik lösbar ist, ist es das auch mit perl.
  du schaust drauf und siehst ein komma und weisst, dieses ist kein komma, welches werte separiert, sondern eines, was zum wert dazugehört. woran siehst du das? müssen z.b. alle werte mit einem bestimmten muster anfangen? z.b. P\d:: oder so etwas?
  versuche, diese logik erstmal auf papier respektive auf die festplatte zu bringen, dann kann man es auch in perl übersetzen.
  eine gültige kommaseparierte datei würde übrigens werte mit kommata in quotes einschliessen, damit es eindeutig ist. wenn du also einfluss auf das format hast, dann setze dort an. (edit: in dem falle könnte man nämlich der einfachheit halber mit einem CSV-modul von cpan arbeiten)
  Last edited: 2009-05-11 16:43:14 +0200 (CEST)
  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
- +5 replies
- betterworld
  
  2009-05-11 16:45
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Vielleicht ungefähr so (ungetestet):
  
  Code (perl): (dl )
  
  1 2 3
  
  my $line = "P1::Va=Wb,P2::Vc=Wd,P1::Ve=Wf,P3::Vx=Wy,"; my @comps = $line =~ m{\w+::\w+=(?:[^,]|,\d)*}g;
  
  Dabei soll der Teil (?:[^,]|,\d) auf alle Zeichen, die kein Komma sind, oder auf Kommas, denen eine Ziffer nachsteht, matchen.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +4 replies
  - toby
    
    2009-05-11 17:10
    User since
    2006-04-14
    66 Artikel
    BenutzerIn
    
    Hallo betterworld, hallo pq,
    
    2009-05-11T14:45:07 betterworld
    Vielleicht ungefähr so (ungetestet):
    
    Code (perl): (dl )
    
    1 2 3
    
    my $line = "P1::Va=Wb,P2::Vc=Wd,P1::Ve=Wf,P3::Vx=Wy,"; my @comps = $line =~ m{\w+::\w+=(?:[^,]|,\d)*}g;
    
    Dabei soll der Teil (?:[^,]|,\d) auf alle Zeichen, die kein Komma sind, oder auf Kommas, denen eine Ziffer nachsteht, matchen.
    
    WOW! Es funktioniert! Ich habe auch versucht Dein regexp mit verschiedenen Sätzen auszutricksen und... es ist mir NICHT gelungen! :-D
    
    EDIT: Das einzige, was ich noch verändern müsste ist \w+ gegen .*, damit ich auch im Namen des Präfixes und Variablen unabhängig bin, da dort z.B. mit "-" gerechnet werden muss. Ne Idee wie das geht?
    
    Vielen Dank!
    Toby, der sich demnächst wieder verstärkt reguläre Ausdrücke anschauen wird.
    Last edited: 2009-05-11 17:19:58 +0200 (CEST)
    - +3 replies
    - betterworld
      
      2009-05-11 20:06
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      2009-05-11T15:10:19 toby
      EDIT: Das einzige, was ich noch verändern müsste ist \w+ gegen .*, damit ich auch im Namen des Präfixes und Variablen unabhängig bin, da dort z.B. mit "-" gerechnet werden muss.
      
      Und das funktioniert? .* ist ja eigentlich greedy, daher würde ich erwarten, dass es auch alle darauffolgenden "::" gleich mitnimmt. Aber falls du den Rest meines Regexes verstanden hast, sollte es Dir auch nicht schwerfallen, es zu erweitern.
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - +2 replies
      - toby
        
        2009-05-12 00:46
        
        User since
        2006-04-14
        66 Artikel
        BenutzerIn
        
        Hallo betterworld, hallo Forum!
        
        2009-05-11T18:06:34 betterworld
        2009-05-11T15:10:19 toby
        EDIT: Das einzige, was ich noch verändern müsste ist \w+ gegen .*, damit ich auch im Namen des Präfixes und Variablen unabhängig bin, da dort z.B. mit "-" gerechnet werden muss.
        
        Und das funktioniert? .* ist ja eigentlich greedy, daher würde ich erwarten, dass es auch alle darauffolgenden "::" gleich mitnimmt. Aber falls du den Rest meines Regexes verstanden hast, sollte es Dir auch nicht schwerfallen, es zu erweitern.
        
        Es funktioniert eben nicht mit ".*". Vieleicht habe ich mich zu ungenau ausgedrückt. Es funktioniert bei normalen Wörtern für Präfix und/oder Variable. Ich meinte aber, ich suche noch nach Möglichkeit, wenn bei Präfix und/oder Variablen nicht nur alphanumerische Wörter eingesetzt werden, sondern wenn Präfix und/oder Variable "Sonderzeichen" haben, wie z.B. "-", oder "/".
        
        BSP für $line:
        
        $line="AUTO/PKW::GESCHWINDIGKEIT-HOECHST=220,5KM/H,AUTO/LKW::VERWENDUNG/TRANSPORT=Sand|Kies";
        
        Die einzigen Konstanten, die ich habe sind "::" zwischen Präfix und Variable, das Gleichheitszeichen zwischen Variable und Wert, sowie "," als Trenner der Einzelteile, wobei "," leider auch im Wert kommen kann. Hat jemand eine Idee, wie man es nun bei so einem Moloch schaft die einzelnen Teile zu trennen? An der Form des Inputs (wie pq vorgeschlagen hat) kann ich leider nicht drehen...
        
        Danke!
        Toby
        
        Last edited: 2009-05-12 00:48:38 +0200 (CEST)
        
        topeg
        
        2009-05-12 07:22
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Versuch es mal so:
        
        Code (perl): (dl )
        
        my @comps = $line =~ m{[^,:]+::\w+=(?:[^,]|,\d)*}g;

View all threads created 2009-05-11 16:12.