Wieder einmal RegEx (Allgemeines zu Perl)

[thread]18497[/thread]

Wieder einmal RegEx

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+9 replies
jan99

2013-08-06 11:21
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich möchte mich mal weiter versuchen und will Hausnummern filtern die ungültig sind filtern.

Zunächst wollte ich alle auflisten lassen und habe folgendes geschrieben:
Code: (dl )

1 2 3 4

if( $housenumber =~ /[A-Za-z]/i ) { $flag_reportit = 1; print $housenumber." -> reported\n"; }
Es werden aber nicht alle gelistet die normalerweise angezeigt werden. Es werden fehlerhafte und richtige angezeigt. In den Daten ist z.b. auch die Nummer 56 - hier das Log:

Quote
102a -> reported
**********************************
16b -> reported
**********************************
60a -> reported
**********************************
16c -> reported
**********************************
16a -> reported
**********************************
91 - Tesdorpf-Haus -> reported
**********************************
16d -> reported

Sollte mein RegEx nicht beliebige Ziffern liefern und die mit Buchstaben ignorieren ?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +3 replies
- Muffi
  
  2013-08-06 11:26
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Deine regex sagt: Wenn Buchstaben drin sind schreibs hin. Macht sie doch.
  Sogar mit Gross-Kleinschreibung doppelt sicher ;)
  1 + 1 = 10
  - +2 replies
  - jan99
    
    2013-08-06 11:37
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    2013-08-06T09:26:47 Muffi
    Deine regex sagt: Wenn Buchstaben drin sind schreibs hin. Macht sie doch.
    Sogar mit Gross-Kleinschreibung doppelt sicher ;)
    
    +1
    
    jetzt geändert auf
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    if( $housenumber =~ /[A-Z]/i ) { $flag_reportit = 1; print $housenumber." -> reported\n"; } else { print $housenumber." -> nicht reported\n"; }
    
    aber warum werden dann andere immer noch nicht erkannt?
    
    Quote
    38 -> nicht reported
    66 -> nicht reported
    6 -> nicht reported
    25 -> nicht reported
    28 -> nicht reported
    14 -> nicht reported
    86 -> nicht reported
    
    ??
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - Muffi
      
      2013-08-06 11:39
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Dir ist der Unterschied zwischen Ziffer und Buchstabe geläufig?
      1 + 1 = 10
- GwenDragon
  
  2013-08-06 11:44
  User since
  2005-01-17
  14756 Artikel
  Admin1
  Statt
  
  Code: (dl )
  
  if( $housenumber =~ /[A-Za-z]/i ) {
  
  hätte auch
  
  Code: (dl )
  
  if( $housenumber =~ /[A-Za-z]/ ) {
  
  gereicht. In der Zeichenklasse in [] sind doch Groß/Kleinbuchstaben schon drin, da ist der Modifier i nicht nötig.
  
  Ansonsten findet es eben alle Zeichenketten, in denen Buchstaben drin sind.
  
  Welche Hausnummern sind denn gültig?
  Ich nehme mal an Ziffern+Buchstabe?
  
  Mögliche Lösung:
  
  Code: (dl )
  
  1 2
  
  if( $housenumber =~ /^(\d+\s*[A-Za-z]?)\b/ ) { $valid_housenumber = $1;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- renee
  
  2013-08-06 12:07
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Hausnummern aus der Wirklichkeit zu matchen ist nicht ganz trivial. Hier mein aktueller Regex für die Überprüfung bei Bestellungen des Perl-Magazins:
  
  Code: (dl )
  
  ^\d+(?:(?:\s*[A-Za-z\s-]+)|(?:\s*-\s*\d+))?(?:\s*\/\s*\d+)?$
  
  Es gibt solche Formatierungen (ohne mögliche Leerzeichen zwischendrin):
  
  12 (einfache Hausnummer)
  12a (einfache Hausnummer mit Buchstabe)
  12a-c (mehrere Häuser zusammengefasst)
  13-15 (mehrere Hausnummern, häufig bei größeren Unternehmen)
  12 / 4 (Hausnummer / Appartment)
  
  Und die Liste ist nicht abschließend...
  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/
  - +3 replies
  - jan99
    
    2013-08-06 12:35
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    da ich später auch fehlerhafte Nummern erfassen erkennen will habe ich erst einmal folgendes jetzt eingebaut:
    
    Code: (dl )
    
    if( $housenumber =~ /^\d+(?:(?:\s*[A-Za-z\s-]+)|(?:\s*-\s*\d+))?(?:\s*\/\s*\d+)?$/ ) {
    
    Aber der Wert
    
    Quote
    91 - Tesdorpf-Haus
    
    wird auch noch als richtige Hausnummer erkannt !
    
    Dann habe ich das ganze negiert:
    
    Code: (dl )
    
    if( !$housenumber =~ /^\d+(?:(?:\s*[A-Za-z\s-]+)|(?:\s*-\s*\d+))?(?:\s*\/\s*\d+)?$/ ) {
    
    um auch
    
    Quote
    //9-10
    
    (beliebige vorgestellte Zeichen) zu erkennen - aber das hat nicht funktionert. Dazu noch eine Idee ?
    
    Gruß Jan :-)
    Last edited: 2013-08-06 12:37:24 +0200 (CEST)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +2 replies
    - renee
      
      2013-08-06 13:37
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Du negierst erst die Variable und dann machst Du den Match. Um das Gegenteil von $var =~ // zu erreichen, musst Du $var !~ // machen...
      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/
      - Gast jan99
        
        2013-08-06 15:03
        
        hi !
        
        vielen Dank - ein Problem ist jetzt das folgende Fälle nicht berücksichtigt werden:
        
        Quote
        11a-11b
        11a+11b
        30c2
        
        letzteres ist auch noch eine Hausnummer die ich bei uns gefunden habe.
        
        Anderes noch gefragt - würden auch Hausnummern wie "23 1/2" oder "23 1/3" (" nur zur Kennzeichnung) als OK gefunden werden?
        
        Gruß Jan :-)
        Last edited: 2013-08-06 15:23:46 +0200 (CEST)

View all threads created 2013-08-06 11:21.