Warum werden Zeichen nicht ausgetauscht ? - #178659 (Allgemeines zu Perl)

jan99

2014-12-04 14:35

User since
2008-09-18
439 Artikel
BenutzerIn
[default_avatar]

Moin !

ich erweitere meine Frage nochmal um eine Austausch beispiel wo ich nicht verstehe warum es nicht funktioniert.

Hier der Source

Code: (dl )

    $str =~ s/[dD]r./doktor/g;
    # konvertierung von St. in Sankt
    $str =~ s/[sT]t./sankt/g;
    # Meyer auch mit ei
    $str =~ s/[Mm]eyer/meier/g;

Hier das Ergebnis mit einigen schrägen Umlauten:

Quote
C:\Perl-Tools\einfacher test>perl test.pl
Musterstra▀e - ###musanktrsanktasze#
Dr.-Musterstra▀e - ###doktormusanktrsanktasze#
Wilhelm-Wisser-Weg - ###wilhelmwisserweg#
St. Aegidienstra▀e - ###st.aegidiensanktasze#
Meyerstra▀e - ###meiersanktasze#
M³llerstra▀e - ###muellersanktasze#
wir haben fertig...

Warum wird die Dr.-Musterstraße richtig getauscht - die St. Aegidienstraße nicht ?

Gruß Jan :-)

perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de