Regex Problem/Frage (gelöst) (Allgemeines zu Perl)

[thread]19462[/thread]

Regex Problem/Frage [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
Ionit

2015-01-14 12:22
User since
2006-05-16
81 Artikel
BenutzerIn
Hallo Freunde,

ich habe einen String ....
Code: (dl )

$string = "bla foo Hobbys: Phrase1, Phrase2, Ich bin Phrase3, Phrase4, Phrase5, Phrase6 her geht der String noch endlos weiter mit vielen weiteren Wörtern bla foo etc"
Die Anzahl der Phrasen ist vorher nicht bekannt - auch kann eine Phrase (siehe: Ich bin Phrase3) aus mehrere Wörtern bestehen (maximal 25 Zeichen).

Ich möchte nun aus diesem String mit Regex die Phrasen "extrahieren" aber leider weiß ich nicht wie ich das anstellen muss.

Mit ....
Code: (dl )

($hobbys) = $string =~ m/Hobbys: (\w+.*,\s)/;
erhalte ich immer nur die Phrase1 .... ich müsste jetzt irgendwie das Muster "repeaten", sodass ich alle Phrasen, die durch Kommata getrennt sind, bekomme aber ich weiß leider nicht wie man das macht.

In Gaga-Code:
Suche alle Phrasen die durch Kommata getrennt sind (nach Hobby:) mit einer Länge von 3 - 25 Zeichen .....

Könnte mir von euch Profis bitte jemand auf die Sprünge helfen?

Vielen Dank schonmal im Voraus!
Gruß Matthias
- +5 replies
- payx
  
  2015-01-14 12:57
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  ~~grep {length($_)<=25} split /\s*,\s*/, (split /:\s*/, $string)[1];~~
  
  PS: Besser:
  
  Code (perl): (dl )
  
  1 2
  
  use 5.010; say for grep {length($_)<=25} split /\s*,\s*/, ($string =~ s/^.+?: //r);
  
  HTH
  Grüße
  payx
  Last edited: 2015-01-14 13:05:16 +0100 (CET)
  - +4 replies
  - Ionit
    
    2015-01-14 14:03
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Hallo payx,
    danke für Deine Hilfe ... das funktioniert schonmal sehr gut.
    
    Das Probem ist aber leider noch ... da der String ja sehr lang ist und nach den, durch Komma getrennten Phrasen, noch mehr Text vorhanden ist, dass dort irgendwo auch noch ab und an ein Komma auftauchen kann.
    
    Die Hobbyphrasen bekomme ich momentan alle aber zusätzlich tauchen dann auch noch Stringteile vom Stringende auf.
    
    Du kannst das selbst mal mit folgendem String testen.
    
    Code: (dl )
    
    $string = "bla foo Hobbys: Phrase1, Phrase2, Ich bin Phrase3, Phrase4, Phrase5, Phrase6 her geht der String noch endlos weiter mit vielen weiteren, Wörtern bla foo etc";
    
    (am Ende ist noch ein Komma eingesetzt)
    
    Das Ergebnis ist:
    Phrase1
    Phrase2
    Ich bin Phrase3
    Phrase4
    Phrase5
    Wörtern bla foo etc <----- dies darf nich auftauchen
    
    Kann man die grep-Anweisung irgendwie so modidfizieren, dass zwischen den Kommas maximal 25 Zeichen vorhanden sein dürfen? Wenn mehr als 25 Zeichen =skip/igno
    
    Ich als Anfänger weißt leider nicht wie man da vorgehen müsste.
    
    Könntest Du dazu vielleicht noch etwas sagen?
    
    Herzlichen Dank für Deine bisherige Hilfe!
    
    Gruß Matthias
    Last edited: 2015-01-14 14:05:56 +0100 (CET)
    - +2 replies
    - payx
      
      2015-01-14 14:32
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo Ionit,
      
      nach Deiner Anforderungsbeschreibung ist das Verhalten doch korrekt:
      
      2015-01-14T13:03:02 Ionit
      Wenn mehr als 25 Zeichen =skip/igno
      
      Elemente mit mehr als 25 Zeichen werden übersprungen, nachfolgende kürzere wieder gesammelt.
      
      Wenn beim ersten Element mit mehr als 25 Zeichen Schluss sein soll, geht es wohl am besten mit einer Schleife:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      use 5.010; for my $phrase (split /, /, $string =~ s/^.+?: //r) { last if length($phrase)>25; say $phrase; }
      
      HTH
      Grüße
      payx
      
      PS: Was ist, wenn im Text nach den als Phrasen zu sammelnden Elementen zufällig schon früher als nach 25 Zeichen das erste Komma auftaucht? Dann wird das erste Textstück auch gesammelt (und evtl. auch noch weitere, bis zur ersten Folge von 25 Zeichen ohne Komma+Leerzeichen halt). Sehr praxistauglich dürfte der ganze Ansatz nicht sein.
      
      Editiert von payx: PS
      Last edited: 2015-01-14 14:39:40 +0100 (CET)
      - Ionit
        
        2015-01-19 17:47
        
        User since
        2006-05-16
        81 Artikel
        BenutzerIn
        
        Hallo payx,
        
        ich habe es jetzt so gelöst, dass ich die durch Komma getrennten Phrasen mit Phrasen aus der Datenbank vergleiche (dort sind alle Hobbyphrasen vorhanden). Trashphrasen die beim Splitten entsehen, filter ich somit heraus sodass nur noch die Hobbyphrasen übrigbleiben.
        
        Das ist zwar ein umweg aber es funktioniert sehr gut.
        
        Danke für die Hilfe!
    - hlubenow
      
      2015-01-15 18:14
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      2015-01-14T13:03:02 Ionit
      Das Probem ist aber leider noch ... da der String ja sehr lang ist und nach den, durch Komma getrennten Phrasen, noch mehr Text vorhanden ist, dass dort irgendwo auch noch ab und an ein Komma auftauchen kann.
      
      Datenverarbeitung funktioniert nur, wenn man ein Kriterium dafür hat. Also, nach welchem Kriterium willst Du die Trenn-Kommata von den übrigen Kommata unterscheiden?
- GwenDragon
  
  2015-01-15 13:28
  
  User since
  2005-01-17
  14757 Artikel
  Admin1
  
  Verschoben von Fragen zu Perl-Modulen nach Allgemeines zu Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-01-14 12:22.