Hilfe bei Reg.-Ausdruck (Allgemeines zu Perl)

[thread]13948[/thread]

Hilfe bei Reg.-Ausdruck

Leser: 27

Articles: hide open all | hide show old branches

+14 replies
jan999

2009-08-28 10:35
User since
2009-04-02
109 Artikel
BenutzerIn
Moin !

im Rahmen von OpenStreetMap gibt es folgende Zeilen in den OSM-Dateien.

Quote
<tag k='name' v='Meyer-Straße' />

Nun möchte ich Teile des Ausdrucks der bei V steht austauschen und habe auch schon folgende Funktion gefunden welche schnell eine Datei bearbeitet:
Code (perl): (dl )

perl -p -i.bak -e "~s|-Straße|-Str.|" %osmworkfolder%/osmosis/%DataFile%
Es soll zum Beispiel aus dem Wort Straße Str. werden. Straße kommt aber nun in vielen Variationen vor:

Quote
Meyer-Straße
Meyer Straße
Meyerstrasse
Meyer-Strasse
Meyerstrasse
...

Das gleiche wäre beim Doktor gegeben:

Quote
Doktor-Meyer-Straße
Doktor Meyer Straße
...

Nun suche ich einen Ausdruck mit welchem ich z.B. die Konvertierung für die Straße mit einem Funktionsaufruf abdecken kann anstatt 5x verschiedene Tauschaktionen zu starten.

Kann mir einer weiterhelfen ?

Gruß Jan :-)
- +10 replies
- Taulmarill
  
  2009-08-28 10:43
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Folgendes sollte alle von dir geposteten Varianten von "Straße" matchen:
  
  Code: (dl )
  
  s/[-\s]?[Ss]tra(?:ß|ss)e/-Str./;
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +3 replies
  - jan999
    
    2009-08-28 11:17
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    Moin !
    
    das sieht ja sehr interessant aus.
    
    Da es nur eine Zeile ist (grizz !) bin ich einmal so frech und frage Dich ob Du mir auch noch den Doktor entsprechend umschreiben könntest ?
    
    Alles weitere kann ich mir dann wohl selber ableiten.
    
    Gruß Jan :-)
    - +2 replies
    - Taulmarill
      
      2009-08-28 11:23
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Du meinst "Dokor" => "Dr."? Das sähe dann wohl so aus:
      
      Code: (dl )
      
      s/[Dd]oktor[-\s]/Dr.-/
      
      Brauchst du Hilfe beim Verständnis der Regexe, oder kommst du damit klar?
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - roooot
        
        2009-08-28 19:02
        
        User since
        2008-03-03
        276 Artikel
        BenutzerIn
        
        Hilfe bei Regex gibt z.B. http://weitz.de/regex-coach/. Regexe entwickle ich immer in diesem Programm.
        Viele Grüße :)
  - +6 replies
  - jan999
    
    2009-09-01 09:40
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    Moin !
    
    ich habe den Ausdruck einmal getestet und irgendwie scheint da noch ein fehler enthalten zu sein - muss allerdings sagen, dass ich den Ausdruck den Konvertierungsausdruck eingefügt haben. (Bei den im Posting folgenden Ausdrücken funktioniert es alledins).
    
    Mein Konvertierungsausdruck lautet:
    
    Code (perl): (dl )
    
    perl -p -i.bak -e "~s|[-\s]?[Ss]tra(?:ß|ss)e|-Str.|" %osmworkfolder%/osmosis/test.txt
    
    Angewand auf den Mustertest:
    
    Quote
    Meine Musterstrasse ist heute offen.
    
    bekomme ich folgende Fehlermeldung:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    D:\DATEN\JAN\openstreetmap\GarminKartenErstellen>perl -p -i.bak -e "~s|[-\s]?[Ss ]tra(?:▀|ss)e|-Str.|" D:\DATEN\JAN\openstreetmap/osmosis/test.txt Unmatched ( in regex; marked by <-- HERE in m/[-\s]?[Ss]tra( <-- HERE ?:»/ at -e line 1.
    
    Kann mir einer sagen wo der Haken ist ??? Es wird zwar markiert - aber ich sehe den Fehler nicht !
    
    Gruß Jan :-)
    - +3 replies
    - pq
      
      2009-09-01 09:44
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      nimm mal einen anderen delimiter als |.
      wenn du die pipe benutzt, darfst du natuerlich keine pipes in der regex selbst benutzen, bzw. nur escaped, was dir dann aber nix bringt.
      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
      - +2 replies
      - jan999
        
        2009-09-01 10:48
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        Moin !
        
        das verstehe ich nicht ganz - darf ich ein beliebiges Trennzeichen nehmen ?
        
        Gruß Jan :-)
        
        pq
        
        2009-09-01 10:54
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ziemlich beliebig, ja.
        wie bist du denn darauf gekommen, dass du die pipe benutzt?
        hast du schonmal perldoc dazu gelesen?
        du kannst hier auch einfach den slash nehmen. so wurde es dir ja schliesslich gezeigt.
        du könntest es auch schlicht und einfach mal ausprobieren.
        
        edit: und was genau verstehst du daran nicht?
        
        s| ... foo|bar ... | baz |
        
        woher soll perl da wissen, dass das zweite | nicht schon die ersetzung einleitet? raten?
        Last edited: 2009-09-01 10:55:19 +0200 (CEST)
        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
    - +2 replies
    - Dubu
      
      2009-09-01 10:12
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Bist du sicher, dass du aus "Musterstrasse" tatsächlich "Muster-Str." machen möchtest? Das wären schon zwei unterschiedliche Straßen ...
      - jan999
        
        2009-09-01 10:47
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        Moin !
        
        Du hast recht ! Aus der Musterstrasse soll natürlich nur die Musterstr. werden.
        
        Gruß Jan :-)
- +3 replies
- GwenDragon
  
  2009-08-28 12:18
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Achtung! Vorher prüfen, in welcher Zeichenkodierung die Quelldatei vorliegt.
  nationale Sonderzeichen sind bei UTF8 nämlich anders als bei ISO-8859-1, Windows-1252 oder ähnlichem.
  http://de.wikipedia.org/wiki/ISO-8859-1#ISO_8859-1...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Linuxer
    
    2009-08-28 12:41
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    hm, interessant. Ich hatte bisher für mich nur "mitgenommen", dass sich ISO-8859-1 und -15 nur im Eurozeichen unterscheiden ... Aber laut der von Dir genannten Seite sind's noch mehr Unterschiede... *merken muss*
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - GwenDragon
    
    2009-08-28 13:36
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Zu den Unterschieden Allgemein noch was: Beim altem oder neuem Mac kann es auch nochmals anders sein.
    Also musst du wissen, was deine Quellkodierung ist.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2009-08-28 10:35.