regex + negation + idiot (Allgemeines zu Perl)

[thread]13569[/thread]

regex + negation + idiot

Leser: 29

Articles: hide open all | hide show old branches

+5 replies
Froschpopo

2009-05-26 03:32
User since
2003-08-15
2653 Artikel
BenutzerIn
Ich hab ein Blog gebaut in welchem man einzelne Artikel mit tags versehen kann.
Die tags werden durch Kommata getrennt in einem <input> übertragen und landen in $str.
Da ich für jeden tag einen einzelnen Datensatz anlegen will, muss ich diese auseinandersplitten.
Hier schwebt mir etwa folgendes vor:
Code (perl): (dl )

perl -e '$str = "Perl, Froschpopo, CGI"; @arr = split(/\b\W*\s\W*\b/,$str); print lc $_,"\n" for @arr'
So weit, so gut.
Aber wie kann ich zusammenhängende Wortgruppen wie "Camel book" beim splitting ignorieren?
Angenommen wir haben folgende Ausgangssituation:
Code: (dl )

$str = "Perl, Froschpopo, \"Camel book\", CGI, \"1, 2, 3 Meins!\"";
Ich seh ja ständig irgendwelche Möglichkeiten tags einzugeben. Aber leider steht selten irgendwo, wie die Eingaben geparst werden :-(
Last edited: 2009-05-26 03:40:54 +0200 (CEST)
- +4 replies
- topeg
  
  2009-05-26 07:09
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ich denke so könnte es gehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  $str = 'Perl, Froschpopo, "Camel book", CGI, "1, 2, 3 Meins!", Das ist ein Test "Angefuehrt", Klappt!'; while($str=~/(?:^|,)\s*("[^"]*"|[^,]*)/gc) { my $b=$1; $b=~s/^"(.+)"$/$1/sg; print "$b\n"; }
  
  Du könntest aber auch ein CSV-Modul nutzen.
  - +3 replies
  - Froschpopo
    
    2009-05-26 18:27
    User since
    2003-08-15
    2653 Artikel
    BenutzerIn
    
    Das fängt ja schon ganz gut an und funktionieren tuts auch. Was mir aber nicht ganz gefällt ist, dass auch ein leerer $str als tag erkannt wird.
    
    Folgende Beispiele hab ich noch getestet:
    
    Code: (dl )
    
    1 2
    
    $str = ''; # ergibt auch ein match $str = ' , sport, '; # ergibt 3 matches
    
    ich möchte so gut wie nur möglich tags erkennen und irgendwie versuchen auch versehendliche tippfehler zu korrigieren. Auch sollte ein tag unbedingt mindestens 3 Zeichen lang sein.
    - +2 replies
    - topeg
      
      2009-05-26 21:03
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Nichts leichter als das :-)
      Zeile 2:
      
      Code (perl): (dl )
      
      while($str=~/(?:^|,)\s*("[^"]{3,}"|[^,]{3,})/gc)
      
      Das sollte nur Felder finden, die drei oder mehr Zeichen enthalten.
      - Froschpopo
        
        2009-05-27 14:49
        
        User since
        2003-08-15
        2653 Artikel
        BenutzerIn
        
        jau da hätte ich auch selbst drauf kommen können :D
        Vielen Dank für deine Bemühung!

View all threads created 2009-05-26 03:32.