regexp - komme nicht weiter (Allgemeines zu Perl)

[thread]18942[/thread]

regexp - komme nicht weiter

Tags: perl5 regex Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+15 replies
Gast christian

2014-03-04 16:21
Hallo,
ich versuche jetzt schon eine ganze Weile einen String zu splitten, damit ich das Ergebnis weiterverarbeiten kann. Ich bin sehr neu und versuche mich gerade mit perl vertraut zu machen. Vielleicht kann mir jemand unter die Arme greifen..

Folgendes Problem:

Zeichenkette sieht wie fogt aus:
[Part1,Part2],[Part3],[Part4, Part5],[Part6].
Der Inhalt in den eckigen Klammern wird benötigt. Im Ergebniss soll es so aussehen:
$a[1]= Part1, Part2
$a[2]= Part3
$a[3]= Part4, Part5
$a[4]= Part6

Die Zeichenkette kann beliebig lang sein und auch die Werte in den Klammern können mehr als 2 oder 3 durch Komma getrennte Werte annehmen.

Mein Versuch liefert zwar schon den Inhalt der eckigen Klammern, aber ich kriege das Komma und das Leerzeichen dazwischen nicht weg, diese werden auch im Array gespeichert.
Code: (dl )

my $test="[Part1,Part2],[Part3],[Part4, Part5],[Part6]";; my @a=split(/\[([^\[]+)\]/, $test);
Wie kann ich das anstellen?
chritian.
Last edited: 2014-03-04 16:34:05 +0100 (CET)
- +2 replies
- Linuxer
  
  2014-03-04 16:37
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hi,
  
  wenn die Strings innerhalb der Klammern (also Part1,Part2, etc.) keine Klammern enthalten, kannst Du das mit Regex ohne split() machen:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $text = "[Part1,Part2],[Part3],[Part4, Part5],[Part6]"; my @data = $text =~ m{\[([^\]]+)\]}g; print join "\n", @data, '';
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - payx
    
    2014-03-04 16:45
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo,
    
    hier eine Variante mit split (ersetze Zeile 2 in Linuxers Vorschlag):
    
    Code (perl): (dl )
    
    my @data = split /\[|\],?\s*\[?/, $text;
    
    HTH
    Grüße
    payx
- +9 replies
- Linuxer
  
  2014-03-04 16:40
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Mit split() könnte man es so machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $text = "[Part1,Part2],[Part3],[Part4, Part5],[Part6]"; # splitte zuallerst am ],[, erst danach am [ oder ]; erzeugt ggfs. am Anfang und Ende Leerfelder! my @data = split m{\],\[|\[|\]}, $text; print join "\n", @data, '';
  
  PS: Auch hier gilt, dass die Datenteile keine eckigen Klammern enthalten sollten.
  PPS: Ich würd's erstmal ohne split() machen.
  Last edited: 2014-03-04 16:41:50 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +8 replies
  - Gast Christian
    
    2014-03-04 17:05
    
    Hammer!
    Besten Dank für die schnelle Antwort, das funzt sehr gut! Würde es Dir etwas ausmachen, den Ausdruck ein wenig zu erläutern? Ich kann es nicht ganz nachvollziehen, was da gerade passiert...
    
    In den Klammern wird niemals eine weitere Klammer o.a. auftauchen. Allerdings wird noch eine Besonderheit hinzukommen:
    Inhalte in den eckigen Klammern müssen dann ignoriert werden, wenn Sie einen Anhang in Form eines "Unterstrichs" mit zwei weiteren Buchstaben besitzen.
    [Part1, Part1_XX, Part2],[Part3, Part3_XX],[Part4, Part5],[Part6]. Die Ausgabe muss dann auch so aussehen. Das funktioniert wahrscheinlich nicht mehr ohne Split, oder?
    
    $a[1]= Part1, Part2
    $a[2]= Part3
    $a[3]= Part4, Part5
    $a[4]= Part6
    
    Christian
    Last edited: 2014-03-04 17:14:33 +0100 (CET)
    - +7 replies
    - Linuxer
      
      2014-03-04 17:32
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Welche Variante meinst Du? Meine split()-Variante hat ja schon einen Kommentar? Reichte der nicht?
      
      Ich vermute, dass Du auf die Nicht-split()-Variante geantwortet hast, aber die reine Regex-Variante meinst?
      
      Vorschlag (und erster Erklärungsversuch im Text):
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      my $text = "[Part1,Part1_XX,Part2],[Part3,Part3_XX],[Part4, Part5],[Part6]"; # die folgenden Zeilen quasi von hinten nach vorne lesen: my @data = # fuer jeden Treffer wird der _XX-Teil entfernt und die Kommata bereinigt # map muss das Element selber wieder ausgeben; daher das $_ am Ende map { s/[^,]+_XX//g; s/^,|,$//g; s/,,/,/g; $_ } # suche nach Text in eckigen Klammern und fange ihn ein mit runden Klammern; # liefere alle Treffer als Liste ans map {} $text =~ m{\[([^\]]+)\]}g; print join "\n", @data, ''
      
      Doku-Tipp:
      
      perlretut
      perlrequick
      perlre
      
      edits: 2 Änderungen am 1. Regex im map...
      Last edited: 2014-03-04 18:03:33 +0100 (CET)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +6 replies
      - Gast Christian
        
        2014-03-05 08:56
        
        Hallo Linuxer,
        
        Vorschlag (und erster Erklärungsversuch im Text):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        my $text = "[Part1,Part1_XX,Part2],[Part3,Part3_XX],[Part4, Part5],[Part6]"; # die folgenden Zeilen quasi von hinten nach vorne lesen: my @data = # fuer jeden Treffer wird der _XX-Teil entfernt und die Kommata bereinigt # map muss das Element selber wieder ausgeben; daher das $_ am Ende map { s/[^,]+_XX//g; s/^,|,$//g; s/,,/,/g; $_ } # suche nach Text in eckigen Klammern und fange ihn ein mit runden Klammern; # liefere alle Treffer als Liste ans map {} $text =~ m{\[([^\]]+)\]}g; print join "\n", @data, ''
        
        ....ich brüte gerade über Deinen Code! Aber irgendwo im map-Befehl ist die Syntax verdreht. Zumindest meldet mir das mein perl! Sorry, aber ich erkenne ihn nicht! Das mag daran liegen, dass ich den Ausdruck noch nicht verstanden habe ;-)
        
        christian
        Last edited: 2014-03-05 09:05:11 +0100 (CET)
        
        +5 replies
        
        renee
        
        2014-03-05 09:07
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Dann wäre die Fehlermeldung ganz praktisch ;-)
        
        Edit: Gerade das Codestück ausprobiert und es funktioniert... Deshalb besser auch etwas Code außenrum zeigen...
        Last edited: 2014-03-05 09:10:53 +0100 (CET)
        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/
        
        +4 replies
        
        knorpelfisch
        
        2014-03-05 09:26
        
        User since
        2014-03-04
        2 Artikel
        BenutzerIn
        
        Hallo,
        hier die Fehlermeldung:
        
        Code: (dl )
        
        1 2 3 4 5
        
        Perl> my $text = "[Part1,Part1_XX,Part2],[Part3,Part3_XX],[Part4, Part5],[Part6]"; [Part1,Part1_XX,Part2],[Part3,Part3_XX],[Part4, Part5],[Part6] Perl> my @data = map { s/[^,]+_XX//g; s/^,|,$//g; s/,,/,/g; $_ } [!] compilation error: syntax error at (eval 4) line 4, at EOF
        
        Habe das ersteinmal 1:1 übernommen. Liegt das an meiner perl-Console? Läuft unter debian Linux.
        Christian
        Last edited: 2014-03-05 09:35:43 +0100 (CET)
        
        +3 replies
        
        renee
        
        2014-03-05 09:36
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Mach mal das $text =~ m{\[([^\]]+)\]}g; direkt hinter die schließende geschweifte Klammer des map...
        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/
        
        +2 replies
        
        knorpelfisch
        
        2014-03-05 10:01
        
        User since
        2014-03-04
        2 Artikel
        BenutzerIn
        
        Hi,
        
        jau das war es! Sorry, ist aber ziemlich zimperlich die perl Console...
        kann man für die Zeichen nach dem "Unterstrich" einen Platzhalter definieren? oder muss man dann mit "oder" arbeiten. XX steht für beliebige Zeichen. Das Fragezeichen funktioniert nicht!
        
        Code (perl): (dl )
        
        my @data = map { s/[^,]+_??//g; s/^,|,$//g; s/,,/,/g; $_ } $text =~ m{\[([^\]]+)\]}g;
        
        Nachtrag:
        
        Code (perl): (dl )
        
        1 2 3
        
        my $text = "[Part1,Part1_SW,Part2],[Part3,Part3_RF],[Part4, Part5],[Part6]"; my @data = map { s/[^,]+(_SW|_RF)//g; s/^,|,$//g; s/,,/,/g; $_ } $text =~ m{\[([^\]]+)\]}g; print join "\n", @data, ''
        
        ..so geht es auf jeden Fall wenn ich die Suffixe mit "oder" verknüpfe..
        Christian.
        Last edited: 2014-03-05 10:15:44 +0100 (CET)
        
        Gast wer
        
        2014-03-05 10:12
        
        "." sthet für ein belibiges zeichen. "?" ist ein modifier, und sagt das die vorherige regel auch nicht vorhanden sein darf und dass sie nicht gierig sein darf.
        Last edited: 2014-03-05 10:37:40 +0100 (CET)
- +3 replies
- clms
  
  2014-03-04 17:23
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Guest christian
  Mein Versuch liefert zwar schon den Inhalt der eckigen Klammern, aber ich kriege das Komma und das Leerzeichen dazwischen nicht weg, diese werden auch im Array gespeichert.
  
  Code: (dl )
  
  my $test="[Part1,Part2],[Part3],[Part4, Part5],[Part6]";; my @a=split(/\[([^\[]+)\]/, $test);
  
  Hier eine Variante mit split:
  
  Code (perl): (dl )
  
  1 2
  
  my $test="[Part1,Part2],[Part3],[Part4, Part5],[Part6]"; my @a=split(/(?<=\]),(?=\[)/,$test;
  
  Sie splittet an jedem "],[" aber die eckigen Klammern gehören nicht zum Match-String sondern stehen in look-behind und look-ahead assertions, werden also anders als das Komma im Ergebnis belassen.
  
  Diese Version sollte auch mit einzelnen eckigen Klammern im Eingabestring zurecht kommen, d.h. "[part[1],part[2]],[Part3]" würde in ""[part[1],part[2]]" und "[Part3]" gesplittet.
  - +2 replies
  - Linuxer
    
    2014-03-04 17:33
    
    User since
    2006-01-27
    3870 Artikel
    HausmeisterIn
    
    ++ dafür.
    Auch nett.
    Ich verdränge die Look-Ahead und Look-Behind irgendwie immer beim split(). :-(
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - Gast Christian
      
      2014-03-04 19:01
      
      Hallo,
      vielen Dank an alle! Ich muss mir das jetzt in Ruhe mal reinziehen um es zu verstehen! Ich melde mich dann wieder....
      
      Einen schönen Abend und bis bald....
      
      Christian.
      
      P.S. sorry, ich meinte die Variante ohne split....
      Last edited: 2014-03-04 19:15:44 +0100 (CET)

View all threads created 2014-03-04 16:21.