Regulärer Ausdruck zur Trennung von Straßennamen und Hausnummern gesucht (Allgemeines zu Perl)

[thread]14723[/thread]

Regulärer Ausdruck zur Trennung von Straßennamen und Hausnummern gesucht

Leser: 19

Articles: hide open all | hide show old branches

+11 replies
havi

2010-02-24 09:21
User since
2003-08-04
2036 Artikel
BenutzerIn
Hallo Freunde!

Muss die Strasse von der Hausnummer trennen.

Mach das bis jetzt so:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

sub StrasseHausnummerSplit { my $str = shift; my ($strOnly, $hnrOnly) = ("", ""); ($strOnly, $hnrOnly) = $str =~ /(\d*\D*)(.*)/; $strOnly =~ s%\s+$%%g; $strOnly, $hnrOnly; } # StrasseHausnummerSplit
Das funktioniert so weit, bei folgenden Strassen:
my $str = 'Hauptstrasse 13';
my $str = '10. Mai Strasse 24';

Allerdings nicht bei zB folgender Strasse
my $str = 'Strasse des 10. Oktober 34';

Kann mir bitte jemand auf die Sprünge helfen?

Vielen Dank schon mal.

Gruß,
Gernot
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
- +10 replies
- Crian
  
  2010-02-24 09:26
  
  User since
  2003-08-04
  5873 Artikel
  ModeratorIn
  
  Ich hab keine direkte Lösung, aber das Problem ist recht komplex.
  
  Bedenke Dinge wie
  Hauptstraße 13a
  Bahnhofsstraße 17-19
  Schillerstraße 5/III. Stock
  c/o Max Mustermann Meierhof 17
  
  und in Mannheim gibt es auch sehr interessante "Straßen".
  O 3
  P17
  D 2
  
  ...
  
  Es gibt ein ziemlich komplexes Programm bei uns im Haus dafür. Aber das darf ich nicht weitergeben.
  
  -> http://de.wikipedia.org/wiki/Hausnummer
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
  - +9 replies
  - havi
    
    2010-02-24 09:30
    
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    Vielen Dank schon mal.
    
    Ich weiß, ich weiß...
    Deine angegebenen Beispiele funktionieren aber alle soweit.
    Ich muss keine weitere Trennung nach Stock/Tür usw. machen, sondern
    nur die Strasse von der Hausnummer (=Stock/Tür/usw.) trennen.
    
    Ich bekomme aber gerade die Beispieldaten geliefert, mal schauen was es
    da noch so alles gibt.
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/
    - +8 replies
    - Crian
      
      2010-02-24 09:34
      
      User since
      2003-08-04
      5873 Artikel
      ModeratorIn
      
      Du könntest nach gängigen "Enden" suchen. Sowas wie
      straße
      str.
      platz
      allee
      chaussee
      weg
      stieg
      platz
      
      ...
      
      aber auch das ist wohl nur eine 80%-Lösung.
      Wenn du auch noch ausländische Adressen dabei hast, wo die Hausnummer manchmal vorn steht "36 Rue de Sonstwas", wird es nochmal komplizierter.
      
      Vielleicht wäre auch ein Ansatz, zu schauen, wieviele Stellen mit zusammenhängenden Ziffern es gibt. Folgt ein Punkt darauf? An welcher Stelle liegt dieser / diese?
      
      Edit: Dein Trennprogramm könnte auch noch ein Maß mitgeben, wie "sicher" es sich ist, die Aufgabe richtig gemacht zu haben. Das Ziel würde dann sein, dass die Dinge, bei denen es sich sicher ist, 100%ig stimmen, und man dann sukzessive immer mehr Fälle behandeln kann, die man auch als sicher bewertet.
      
      Je nach gewünschtem / möglichem Aufwand.
      
      Edit 2: Ich habe den Titel "Regulärer Ausdruck" mal etwas konkretisiert, ich hoffe, das ist in deinem Sinne.
      
      Edit 3: Wenn du es mit Dingen zu tun hast, die irgendwann mal eingescannt wurden, können dir Nullen für den Buchstaben O und Einsen für den kleinen Buchstaben l begegnen. Wenn du nun nach Ziffern suchst, kann das wehtun.
      Last edited: 2010-02-24 09:41:46 +0100 (CET)
      s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
      
      use strict; use warnings; Link zu meiner Perlseite
      - +7 replies
      - havi
        
        2010-02-24 09:41
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        Nein, nein - auch solche Sachen wie "36 Rue de Sonstwas" funktionieren ja
        schon. Problematisch sind eher so Dinge wie:
        
        "Heide 1. Straße 23"
        "Chikago 4. Gasse 234"
        
        Weißt du was ich meine?
        Im Prinzip brauch ich den regulären Ausdruck der sowohl
        "Hauptstrasse 23" und "10. Mai Gasse 23" matcht, aber auch "Strasse des. 10. Oktober 234". Die ersten beiden fang ich schon ab, das letzte Beispiel nicht.
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +6 replies
        
        Crian
        
        2010-02-24 09:46
        
        User since
        2003-08-04
        5873 Artikel
        ModeratorIn
        
        Ich würde da generell lieber mit mehreren regulären Ausdrücken arbeiten. Die Ausdrücke, die die meisten Fälle fangen nach oben, hatten sie Erfolg, macht man nicht weiter. Hatten sie keinen Erfolg, untersucht man die Eingabe mit anderen Ausdrücken.
        
        Das ist handlicher.
        
        Außerdem geht einem ab einer gewissen Komplexität die Übersicht verloren, mir jedenfalls. Ich hab hier ein Projekt, in dem wir über viele viele Regeln einen Haufen Regulärer Ausdrücke zusammen bauen. Die werden dann alle angewendet und der, der den längsten Match trifft, gewinnt. Jeder einzelne ist als Metaausdruck noch verständlich, aber wenn ich mir den endgültigen Ausdruck anschaue, füllt der gern eine Din A4 Seite so im Schnitt.
        Wenn man die nun alle in einen Ausdruck quetschen würde ... irgendwann explodiert die Ausdrucksmaschine *grinst*
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
        
        +5 replies
        
        havi
        
        2010-02-24 09:49
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        Man kann das ganze auch in mehreren Schritten machen, stimmt. Dachte aber es gibt viell. einen einfach Ausdruck der mein beschriebenes Problem lösen kann. ;)
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +4 replies
        
        Crian
        
        2010-02-24 09:53
        
        User since
        2003-08-04
        5873 Artikel
        ModeratorIn
        
        Wenn es Teilausdrücke gibt, dann gibt es auch einen, indem man die Teile per (...|...|...|...) zusammensetzt.
        
        =)
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
        
        havi
        
        2010-02-24 10:35
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        Richtig ;)
        
        Code (perl): (dl )
        
        /(\D*\d*\D+|\d*\D*)(.*)/
        
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +2 replies
        
        sid burn
        
        2010-02-24 11:20
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Ist aber nicht unbedingt empfehlenswert. Alternationen bei Regexe sind in der Regel ziemlich kostspielig und sollte man wenn möglich drauf verzichten. Zumindest habe ich das aus dem Buch "Reguläre Ausdrücke" gelernt. Allerdiengs wurde mit Perl 5.10 eh die komplette Regex Engine überarbeitet wodurch die Aussage nicht mehr stimmen muss.
        
        Aber trotz alledem würde ich keine riesen Regex zusammen bauen sondern lieber einzelnt durchlaufen lassen. Den wenn du die zusammengebaute eh nicht überblicken kannst, ist es schlecht darin notfalls nach fehlern zu suchen auserdem kann das zusammenbauen wieder neue Fehler hervorrufen.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        Crian
        
        2010-02-24 13:33
        
        User since
        2003-08-04
        5873 Artikel
        ModeratorIn
        
        Genau, das meinte ich ja oben auch.
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite

View all threads created 2010-02-24 09:21.