#!/usr/bin/perl


use strict;
use warnings;
use utf8;

work('Musterstraße');
work('Dr.-Musterstraße');
work('Wilhelm-Wisser-Weg');
work('St. Aegidienstraße');
work('Meyerstraße');
work('Müllerstraße');

print "wir haben fertig...\n";

sub work
    {
    my $value=shift;
    print $value." - ###".name_linearisierung($value)."#\n";
    }#end-work

    
    # bereinigen von Straßennamen um diese sicherer vergleichen zu können
sub name_linearisierung
    {
    my $str=shift;
    # entfernen von Leerzeichen
    $str =~ s/ //g;
    
    # entfernen von Bindestrichen
    $str =~ s/-//g;
    
    # konvertierung von Sonderzeichen
    $str =~ s/Ü/Ue/g;
    $str =~ s/Ä/Ae/g;
    $str =~ s/Ö/Oe/g;
    $str =~ s/\x{1E9E}/SZ/g; # U+1E9E
    $str =~ s/ß/sz/g;
    $str =~ s/ü/ue/g;
    $str =~ s/ä/ae/g;
    $str =~ s/ö/oe/g;
    return    $str;
    } # end-streetname_convert