RegEx: .* bis CRLF (Allgemeines zu Perl)

[thread]18502[/thread]

RegEx: .* bis CRLF

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+5 replies
Gast U

2013-08-08 09:22
Hallo,

ich möchte ganz gerne aus einer Datei eine Zeile auslesen wo eine Jahreszahl vorkommt und die Zeile mit einem CR/LF endet.
Code (perl): (dl )

my $regex = qw{THEMA\s*.*(\d{4}).*\r\n$};
Das klappt aber nicht, obwohl der String genau so definiert ist und die Zeile mit einem CR/LF endet.

Kann mir jemand helfen?

Vielen Dank
U
Last edited: 2013-08-08 09:42:31 +0200 (CEST)
- GwenDragon
  
  2013-08-08 09:47
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  qr erzeugt ein Regex, nicht qw.
  
  U:\>perl $line = "THEMA Blah blubb 1233foo \r\n"; print ($line =~ qr{THEMA\s*.*(\d{4}).*\r\n$}); ^Z 1233
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- renee
  
  2013-08-08 09:49
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  qw ist eine Art einen String zu quoten. qr ist der Operator um ein Regex-Objekt zu erstellen. Ansonsten gilt immer "klappt nicht" ist nicht ausreichend als Fehlerbeschreibung. Poste einen Beispielstring bei dem es "klappen" soll und was bringt die Ausgabe von print $1 nach dem Match? Gibt es Fehlermeldungen, ...?
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- +2 replies
- Muffi
  
  2013-08-08 09:55
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  \n steht in Perl für "Zeilenumbruch" und ist OS-Abhängig, nicht für LF.
  Wenn du genau die Zeichen suchen willst nimm am besten \015\012
  1 + 1 = 10
  - topeg
    
    2013-08-08 17:11
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Die Sache ist noch verwirrender.
    Seit man in Perl Filter für Handles (IO-Layer) haben kann (siehe ":raw", ":unix", ":crlf", ":encoding(...)", etc.) ist das "\n" auch wieder "\x0A" dafür wird das Zeilenende unter Umständen beim Lesen auf "\n" verändert.
    
    Das mal "\n" mit einem anderen Zeichen/Zeichenfolge belegt hat war ein Hack für DOS/Windows und ähnliche Betriebssysteme. Das hat nun eleganter über die Filter gelöst.
    Aber die ganze IO-Layer Geschichte von Perl wird Umschifft wenn man Binäre Module benutzt, die Ein/Ausgaben machen. Dann wird nicht gewandelt und es wird verwirrend. Ein ähnliches Problem hat man mit der ganzen Zeichen Encoding Geschichte.

View all threads created 2013-08-08 09:22.