RegEx-Problem (gelöst) (Allgemeines zu Perl)

[thread]15787[/thread]

RegEx-Problem [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+3 replies
Glasperlenspieler

2010-01-02 20:48

User since
2010-01-02
8 Artikel
BenutzerIn

Guten Abend allerseits!

Wäre nett, wenn Ihr mir bei einem Problem weiterhelfen könntet, denn ich stehe gerade total auf dem Schlauch!

Konkret wollte aus E-Mails, bevor ich sie in einer Datenbank abspeichere, die Signaturen sowie das, was darunter folgt, entfernen.

Dazu (bzw. unter anderem dazu) werden die E-Mails in ein Array eingelesen. Meine Idee war nun, das Auslesen des Arrays an dem Punkt abzubrechen, an dem eine Zeile mit dem einigermaßen üblichen Trennzeichen "--" beginnt.

Sah in meiner Gedankenwelt wie folgt aus:

foreach(@lines_in) {
last if ($_ =~ /^--[\s\n]/);
push(@lines_out, $_)
}

Aus irgendeinem Grund, der mir nicht einleuchten wil, greift der reguläre Ausdruck nicht. Warum?

K.
Last edited: 2010-01-02 21:27:35 +0100 (CET)
- +2 replies
- pq
  
  2010-01-02 21:01
  User since
  2003-08-04
  12209 Artikel
  Admin1
  wenn eine regex nicht matcht, ist der erste schritt immmer, sicherzustellen, dass in der variable auch das drin ist, was du erwartest.
  siehe dazu auch VariablenInhalt
  
  du iterierst also über @lines_in und matchst auf /^--[\s\n]/
  \s enthält übrigens schon das \n, so dass das überflüssig ist.
  um genau zu sehen, was in $_ drinsteht, machst du:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  # lade ich in jedem meiner skripte, da ich es eh öfter brauche use Data::Dumper; # zum genauen debuggen auch von normalerweise nicht druckbaren sonderzeichen local $Data::Dumper::Useqq = 1; # in der schleife print Dumper $_;
  
  und dann schauen, was der output ist.
  dann kommt vermutlich heraus, dass was anderes drinsteht als du erwartest.
  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
  - Glasperlenspieler
    
    2010-01-02 21:27
    
    User since
    2010-01-02
    8 Artikel
    BenutzerIn
    
    Danke für die Code-Zeilen zum Debuggen! Aber das Entscheidende war dann wohl, dass ich vergessen hatte, dass \s bereits \n enthält. Verdammt, ist das peinlich. :-(

View all threads created 2010-01-02 20:48.