Regex mit Zeilenumbruch (gelöst) (Allgemeines zu Perl)

[thread]16683[/thread]

Regex mit Zeilenumbruch [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
bob.george

2011-09-02 09:39
User since
2011-09-02
104 Artikel
BenutzerIn
Hallo,
ich versuche mich gerade an eine regex. Sie soll nach zwei Wörtern suchen mit beliebige vielen Spaces/Tabulatoren/Zeilenumbrüchen dazwischen.
das Ganze sieht momentan so aus:
Code: (dl )

$input =~ /FROM\s*$schema/i
Es funktioniert aber nur, wenn der Zeilenumbruch als erstes kommt. Also:
<CR><blank><blank>: funktioniert
<blank><blank><CR>: funktioniert nicht
Das Ganze soll unter Windows laufen. Weiß hier jemand Rat?

modedit Editiert von pq: leerzeichen in titel eingefügt, thread als gelöst markiert
Last edited: 2011-09-02 11:38:01 +0200 (CEST)
- +5 replies
- pq
  
  2011-09-02 09:48
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  da fehlen noch ein paar informationen.
  die regex matcht, wenn in $input FROM steht gefolgt von beliebig vielen whitespaces und dann von dem, was in $schema steht. $schema wird auch als regex intrepretiert.
  
  am besten postest du mal, was in $input so steht und was in $schema.
  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
  - +4 replies
  - bob.george
    
    2011-09-02 09:57
    
    User since
    2011-09-02
    104 Artikel
    BenutzerIn
    
    also in $schema steht z.B. VBTZ.
    wenn $input so belegt ist
    "from<CR> VBTZ" dann funktionierts,
    wenn $input mit
    "from <CR>VBTZ" belegt ist, funktioniert es nicht.
    <CR> steht für zeilenumbruch.
    - +2 replies
    - pq
      
      2011-09-02 10:03
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      funktioniert hier wunderbar.
      
      es gibt hier ne FAQ, die solltest du dir mal durchlesen:
      VariablenInhalt
      
      der punkt ist: woher weisst du wirklich, dass das drin ist, was du glaubst?
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      $ perl -wE' $input = "from \rVBTZ"; $schema = "VBTZ"; if ($input =~ /FROM\s*$schema/i) { say "match" }' match $ perl -wE' $input = "from\r VBTZ"; $schema = "VBTZ"; if ($input =~ /FROM\s*$schema/i) { say "match" }' match
      
      lass dir $input von Data::Dumper ausgeben (Useqq, wie im wiki beschrieben), und dann können wir weitersehen.
      
      auch sinnvoll:
      wenn du glaubst, eine regex ist falsch, dann erzeuge doch manuell einen string, der matchen soll, so wie ich im beispiel.
      wenn der dann matcht, weisst du, dass dein echter inhalt anders aussieht als gedacht.
      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
      - bob.george
        
        2011-09-02 10:13
        
        User since
        2011-09-02
        104 Artikel
        BenutzerIn
        
        jetzt ist der groschen gefallen. da bin ich auf ner fetten leitung gestanden. $input wird bei mir aus einer datei zeilenweise eingelesen, d.h. natürlich, wenn ein \n kommt ist für ihn die zeile zu ende. deswegen steht dann da nur "from \n". vielen dank für deine hilfe.
    - pq
      
      2011-09-02 10:13
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      im übrigen steht CR für Carriage Return, was etwas anderes als ein zeilenumbruch ist.
      daher ist es um so wichtiger, wenn du den genauen inhalt postest, mit hilfe von Data::Dumper
      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

View all threads created 2011-09-02 09:39.