Muster erkennen (Allgemeines zu Perl)

[thread]14713[/thread]

Muster erkennen

Leser: 24

Articles: hide open all | hide show old branches

+6 replies
krait86

2010-02-22 16:57

User since
2010-02-22
3 Artikel
BenutzerIn

Hallo liebe Perl-Community!

ich bin ein ziemlicher Anfänger in Perl und habe eine Textdatei, die eine Reihe von Zeilen mit folgendem Inhalt aufweist:

Vorname_Nachname@12345@Köln@01/01/10

Am Anfang steht der Vorname dann, getrennt durch einen Unterstrich, der Nachname dann ein @ gefolgt von einer ID dann ein @ gefolgt von einem Städtenamen dann ein @ gefolgt von einem Datum mit / getrennt.

Nun kann es sein, dass bestimmte Zeilen eben nicht dem aufgeführten Muster entsprechen und daher aussortiert werden sollen. Das kann man wohl über das Pattern Matching in Perl realisieren, weiß allerdings trotz lesens zahlreicher Tutorials nicht wie ich das nun umsetzen soll :/

Finde die PatternMatching syntax einfach extrem kompliziert :(

Kann mir jemand aushelfen?

Vielen Dank und Viele Grüße
Bernd
- bianca
  
  2010-02-22 17:08
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Du könntest auch ganz ohne Regex arbeiten und einfach jede Zeile mittels my @teile = split /@/,$zeile; zerlegen und anschließend mit if (scalar @teile == 4) { print "hier stimmts" } prüfen, ob die notwendige Anzahl Felder vorhanden ist.
  10 print "Hallo"
  20 goto 10
- +2 replies
- pq
  
  2010-02-22 17:08
  User since
  2003-08-04
  12208 Artikel
  Admin1
  hi,
  
  ein bisschen lektüre:
  http://p3rl.org/perlretut
  perlretut (erster absatz auf deutsch übersetzt)
  
  ein erster ansatz:
  
  Code (perl): (dl )
  
  1 2 3
  
  if ($string =~ m# (\w+) @ (\d+) @ [^@] @ (\d{2}/\d{2}/\d{2}) #x) { # tu was }
  
  alternativ kannst du auch erstmal nach "@" splitten mit der funktion "split" (http://p3rl.org/split) und dann weiter prüfen.
  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
  - krait86
    
    2010-02-22 17:21
    
    User since
    2010-02-22
    3 Artikel
    BenutzerIn
    
    hallo ihr beiden, danke für die Hilfe,
    
    splitting ist auch eine option aber ich dacht mir mit dem regex kann ich die komplette überprüfung auf einmal erledigen, auch wenn es viel komplizierter ist als mit split.
    
    ich werd mich durch deinen ersten Ansatz mal durchbeißen und den versuchen zu verstehen pq :)
    
    Vielen Dank
    Bernd
- +2 replies
- pq
  
  2010-02-22 17:57
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  crosspost: http://community.perl.de/content/muster-erkennen
  
  @krait86: bitte das nächste mal wie in unserer FAQ beschrieben kenntlich machen.
  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
  - krait86
    
    2010-02-23 12:46
    
    User since
    2010-02-22
    3 Artikel
    BenutzerIn
    
    hi pq,
    
    ok sorry hab dort zuerst erstellt ber leider keine Antwort erhalten, beim nächsten mal verlink ich hier einfach :)

View all threads created 2010-02-22 16:57.