Datendatei per Regex validieren? (Allgemeines zu Perl)

[thread]17523[/thread]

Datendatei per Regex validieren?

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+13 replies
Gast Muffi

2012-06-29 09:11
Eine Regex-Frage, an der ich ein bisserl rumgegrübelt, aber keine Lösung gefunden habe.
Ich habe eine Datendatei, die folgenden Aufbau haben sollte:
Code (perl): (dl )

sprintf('%-50s%s', $key, $value)
Also der Key 50-stellig mit Leerzeichen nach Rechts aufgefüllt.
Gibts eine Regex, mit der ich so eine Zeile validieren kann?
Last edited: 2012-06-29 09:30:32 +0200 (CEST)
- +7 replies
- payx
  
  2012-06-29 10:18
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Muffi,
  
  ich habe mich mal dran versucht:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  #!/usr/bin/perl/ use strict; use warnings; use 5.010; my $key = 'foo'; my $value = 'bar'; my $str = sprintf('%-50s%s', $key, $value); say $str; my ($k, $v) = (substr($str, 0, 50), substr($str, 50)); say "'$k'"; say "'$v'"; die "wrong pattern: $str" if ($k !~ s/\s+$// or $v =~ /^\s+/); say "'$k'"; say "'$v'";
  
  Ich bin mir aber nicht sicher, ob das das ist, was Du willst.
  
  Hier wird der String bei 50 gesplittet, dann wird geprüft, ob der erste auf n Leerzeichen endet und der zweite am Anfang keine Leerzeichen hat.
  
  Wenn beides ok ist, werden key und value ausgegeben.
  
  Vielleicht geht es auch eleganter, bin gespannt was noch kommt.
  
  HTH
  Grüße
  payx
  - +6 replies
  - Gast Muffi
    
    2012-06-29 10:33
    Mit Zusatz-split hab ichs jetzt auch gemacht. Irgendwie hatt ich am Anfang nur das Gefühl es muss doch mit ner simplen Regex gehn.
    
    Also sowas in der Art
    
    Code (perl): (dl )
    
    if ($str =~ /^(\w+\s+){50}\w+$/)
    - +5 replies
    - GwenDragon
      
      2012-06-29 10:38
      
      User since
      2005-01-17
      14770 Artikel
      Admin1
      
      Ich denke korrekter wäre das Match so:
      
      Code (perl): (dl )
      
      /^[\w\s]{50}\w+$/
      
      oder um keine Zeilen mit Leerzeichen am Anfang zu fangen:
      
      Code (perl): (dl )
      
      /^\w[\w\s]{49}\w+$/
      
      Last edited: 2012-06-29 10:40:29 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +4 replies
      - Gast Muffi
        
        2012-06-29 10:43
        
        Das Dumme ist, ich will ja \s und \w nicht gemischt, sondern erst \w+ und dann \s+ und das zusammen mit der Länge 50.
        
        Aber ich glaub das geht einfach nicht. Oder zumindest könnt jemand einfach sagen es geht nicht, dann kann ich mit Grübeln aufhören ;)
        Last edited: 2012-06-29 10:48:28 +0200 (CEST)
        
        +3 replies
        
        payx
        
        2012-06-29 11:09
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo Muffi,
        
        ich habe jetzt was besseres:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        #!/usr/bin/perl/ use strict; use warnings; my $key = 'foo'; my $value = 'bar'; my $str = sprintf('%-50s%s', $key, $value); die "wrong pattern: $str" unless $str =~ /^\w+\s+(\w+)$/ and $-[1]==50;
        
        Na?
        
        Grüße
        payx
        
        PS: Funktioniert, wenn $key und $value nur aus \w-Zeichen bestehen dürfen, sonst statt \w vielleicht \S verwenden, wenn sie keine Leerzeichen (aber andere \W-Zeichen) enthalten dürfen.
        Zu $- siehe http://perldoc.perl.org/perlretut.html#Position-information
        
        Editiert von payx: PS
        Last edited: 2012-06-29 11:15:04 +0200 (CEST)
        
        +2 replies
        
        Gast Muffi
        
        2012-06-29 11:15
        
        *patsch*
        an @- hab ich nicht gedacht.
        Last edited: 2012-06-29 11:19:17 +0200 (CEST)
        
        payx
        
        2012-06-29 11:24
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo Muffi,
        
        hier trotzdem noch eine Lösung:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        #!/usr/bin/perl/ use strict; use warnings; my $key = 'foo'; my $value = 'bar'; my $str = sprintf('%-50s%s', $key, $value); my $l = length($str)-50; die "wrong pattern: $str" unless $str =~ /^\w+\s+\w{$l}$/;
        
        Die finde ich auch ganz nett.
        
        Grüße
        payx
- rosti
  
  2012-06-29 19:27
  
  User since
  2011-03-19
  3498 Artikel
  BenutzerIn
  
  Quote
  Also der Key 50-stellig mit Leerzeichen nach Rechts aufgefüllt.
  
  Das kann pack "A50", $str; und mit unpack "A50", $bin; werden die Leerzeichen wieder entfernt.
  
  Lass Dich nicht davon irritieren, dass das "A" für ASCII steht. Es funktioniert auch mit UTF-8. In Dateien stehen nur Bytes.
  
  Tipp: Nimm Schablone "Z", mehr zum Thema hier:
  http://rolfrost.de/map/perlbase/recordfile.html
  
  --Rosti
- +4 replies
- Raubtier
  
  2012-07-01 16:52
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  Die bisherigen Lösungen sehen ja recht lang aus - wie wäre es mit einem einfachen look-behind:
  
  /^\w+\s*(?<=^.{50})\w+$/
  
  - Wolf
  
  Edit: Ggf. das \s* durch \s+ ersetzen. Ich weiß nicht, wie das Verhalten bei Keys der Länge 50 oder darüber hinaus sein soll.
  Last edited: 2012-07-01 17:43:21 +0200 (CEST)
  - +3 replies
  - Gast Muffi
    
    2012-07-02 08:49
    
    Uh, das muss ich mir genauer anschaun, da hört mein Regexwissen auf.
    - +2 replies
    - Raubtier
      
      2012-07-02 10:56
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Ganz einfach:
      
      suche vom Anfang Buchstaben und dann Whitespace. Dann schau zurück und teste, ob vom Anfang bis hier 50 beliebige Zeichen passen - dabei verändere aber nicht die Position, in der ich gerade suche. Danach matche wieder Buchstaben.
      
      Wenn du willst, dass mindestens ein Leerzeichen dem Key folgen soll, dann nimm \s+, wenn der Key auch 50 oder mehr Zeichen haben darf, dann \s*. In dem Fall ḱannst du allerdings später Key und Value nicht mehr trennen (ok, bei einer Länge von bis zu <= 50 ginge das noch, erst ab 51 nicht mehr).
      - Gast Muffi
        
        2012-07-02 13:35
        
        Ah. Ich konnte das ^ nicht zuordnen, aber das ist einfach der Anfang.
        Ich werd \s+ nehmen. Ansonsten will ich die Zeile doch lieber ausgeben und per hand überprüfen.
        
        Danke.
        Last edited: 2012-07-02 14:10:35 +0200 (CEST)

View all threads created 2012-06-29 09:11.