Teilstring zurückgeben (gelöst) (Allgemeines zu Perl)

[thread]17347[/thread]

Teilstring zurückgeben [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+10 replies
maxritti

2012-04-21 10:33

User since
2012-04-21
5 Artikel
BenutzerIn

Hallo zusammen,

seit kurzem hab ich mich mal ein wenig mit Perl beschäftigt, aber augenscheinlich noch nicht genug :)
Und zwar habe ich einen Text in der Form P=HierStehtIrgendwas,I=NocheinText.
Nun möchte ich aus dem String all das haben, was zwischen P= und ,I= seht.
Irgendwie stehe ich da auf dem Schlauch, dass mittels regulären Ausrücken zu ermitteln.
Das geht zwar auch mit substring, aber ich würde das lieber mit RegExp machen.
Hat dazu jemand einen Tip bzw einen Link zu einem Tut, wo RegExp erläutert werden?
Last edited: 2012-04-21 10:37:22 +0200 (CEST)
- +9 replies
- topeg
  
  2012-04-21 11:03
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Wo besteht das Problem?
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $str='P=HierStehtIrgendwas,I=NocheinText'; if($str=~/P=(.+?),I=/) { print "VAL1 = $1\n"; }
  - +8 replies
  - maxritti
    
    2012-04-21 11:14
    
    User since
    2012-04-21
    5 Artikel
    BenutzerIn
    
    Prima, das ging ja fix. Danke dafür.
    
    Augenscheinlich habe ich noch nicht den richtigen Weg gefunden, die RegExp zu bauen.
    Irgendwie drehe ich mich da im Kreis und komme nicht wirklich zum richtigen Ergebnis.
    Naja, Rom wurde ja auch nicht an einem Tag erbaut :)
    - +7 replies
    - maxritti
      
      2012-04-23 08:15
      
      User since
      2012-04-21
      5 Artikel
      BenutzerIn
      
      Hallo,
      
      ich noch mal.
      Kannst Du mir noch mal bei dem regulären Ausdruck helfen?
      Leider reicht der String zwischen P= und ,I= nicht aus. Ich bräuchte noch zusätzlich den Text hunter I= bis zum Zeilenende. Quasi eine Und Verknüpfung.
      Bekommt man das auch mit einem regulären Ausdruck hin?
      - +6 replies
      - Linuxer
        
        2012-04-23 11:19
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        erweiter den Regex entsprechend Deiner Vorgabe:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        # not tested my $str='P=HierStehtIrgendwas,I=NocheinText'; if( $str=~/P=(.+?),I=(.+?)$/ ) { print "P-VAL = $1\n"; print "I-VAL = $2\n"; }
        
        Aber wenn die Teilstrings für P und I in umgekehrter Reihenfolge auftauchen, gibt es keinen Match (I=bla,P=blubb).
        Wenn zwischen den beiden andere Teilstrings auftauchen, gibt es auch keinen Match (P=bla,Q=ups,I=blubb).
        <edit: siehe Antwort von Guifreund>
        
        Warum muss das eigentlich unbedingt mit Regex erfolgen?
        Mit split() könnte das elegant erfolgen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        # untested my $str='P=HierStehtIrgendwas,I=NocheinText'; # long way (with room for further checks (defined, valid values, ...) my %data; for my $pair ( split /,/, $str ) { my ( $key, $value ) = split /=/, $pair; $data{$key} = $value; } # if you are sure, that data in $str is always valid my %data = split /[=,]/, $str;
        
        Danach stehen die Informationen im Hash %data zur Verfügung.
        Last edited: 2012-04-23 12:42:43 +0200 (CEST)
        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!
        
        +5 replies
        
        GUIfreund
        
        2012-04-23 12:27
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-04-23T09:19:34 Linuxer
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        # not tested my $str='P=HierStehtIrgendwas,I=NocheinText'; if( $str=~/P=(.+?),I=(.+?)$/ ) { print "P-VAL = $1\n"; print "I-VAL = $2\n"; }
        
        Wenn zwischen den beiden andere Teilstrings auftauchen, gibt es auch keinen Match (P=bla,Q=ups,I=blubb).
        
        Aber ja doch. Das erste (.+?) frisst so lange, bis ,I= gefunden wird (# not tested). Das ist vermutlich nicht gewollt, entspricht aber genau der Vorgabe aus dem OP. Übrigens kann man (.+?)$ vereinfachen zu (.+) (# ebenfalls not tested).
        Gruß
        GUIfreund
        
        +4 replies
        
        Linuxer
        
        2012-04-23 12:41
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Gute Anmerkung. Danke.
        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!
        
        +3 replies
        
        maxritti
        
        2012-04-23 13:47
        
        User since
        2012-04-21
        5 Artikel
        BenutzerIn
        
        Hi,
        
        tjo, warum mit Perl?
        Ich fange damit halt gerade ein wenig an und dachte, dass das gut passt zu dem was ich brauche.
        Substr hatte ich auch schon unter der Tastatur, habs dann aber vertagt.
        
        Wie immer gibts ja mehrere Wege zum Ziel :)
        
        In meinem Fall ist es ausgeschlossen, dass P= und I= vertauscht sind.
        Allerdings das mit dem Teilstrings, die da auftauchen können (also zwischen P= und I=) verstehe ich nicht ganz.
        
        Code: (dl )
        
        if( $str=~/P=(.+?),I=(.+?)$/ ) {
        
        Bedeutet (.+?) nicht, dass egal was für Zeichen auftauchen, bis zu ,I= gelesen wird?
        darunter würde dann doch auch ,O= fallen.
        
        +2 replies
        
        Linuxer
        
        2012-04-23 16:19
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        2012-04-23T11:47:28 maxritti
        Hi,
        tjo, warum mit Perl?
        Ich fange damit halt gerade ein wenig an und dachte, dass das gut passt zu dem was ich brauche.
        Substr hatte ich auch schon unter der Tastatur, habs dann aber vertagt.
        
        Wie immer gibts ja mehrere Wege zum Ziel :)
        
        ich fragte nur nach "Warum Regex?" nicht "Warum Perl?" und aus Neugierde warum Du Dich auf Regex festlegst.
        Zum Üben und Ausprobieren ist das Beispiel schon verwendbar.
        Im produktiven Einsatz würde ich es anders lösen (wahrscheinlich mit einer split Lösung oder evtl. gar mit einem passenden Modul).
        
        In meinem Fall ist es ausgeschlossen, dass P= und I= vertauscht sind.
        [/quote]
        OK, ich wollte nur der Vollständigkeit halber darauf hinweisen.
        
        2012-04-23T11:47:28 maxritti
        Allerdings das mit dem Teilstrings, die da auftauchen können (also zwischen P= und I=) verstehe ich nicht ganz.
        
        Code: (dl )
        
        if( $str=~/P=(.+?),I=(.+?)$/ ) {
        
        Bedeutet (.+?) nicht, dass egal was für Zeichen auftauchen, bis zu ,I= gelesen wird?
        darunter würde dann doch auch ,O= fallen.
        
        Da hatte ich einen Denkfehler. Guifreund hat ja auch schon drauf hingewiesen.
        Das erste (.+?) sammelt alles bis zum (ersten) Teilstring ,I= ein, auch andere Zuweisungen.
        
        .+ ist gierig und .+? ist nicht gierig.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my $str = "text "; # text mit 3 Leerzeichen am Ende # gierig schnappt sich auch die Whitespaces am Ende if ( $str =~ m/(.+)\s*$/ ) { print ">$1<\n"; } # nicht gierig schnappt sich die Whitespaces am Ende nicht if ( $str =~ m/(.+?)\s*$/ ) { print ">$1<\n"; }
        
        Last edited: 2012-04-24 12:22:22 +0200 (CEST)
        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!
        
        maxritti
        
        2012-04-24 07:49
        
        User since
        2012-04-21
        5 Artikel
        BenutzerIn
        
        2012-04-23T14:19:01 Linuxer
        Hi,
        ich fragte nur nach "Warum Regex?" nicht "Warum Perl?" und aus Neugierde warum Du Dich auf Regex festlegst.
        
        Oh man. Manchmal tippe ich einfach zu flott. Klar hast Du nach Regex gefragt und nicht nach perl.
        Wie ich das sehe sind RegEx mal richtig mächtig und daher wollte ich das mal an der Stelle am praktischen Beispiel nutzen.
        Auch wenn es mit Kanonen auf Spatzen geschossen ist.

View all threads created 2012-04-21 10:33.