Mit Perl deutsche Umlaute ersetzen

[craano]

Hallo,

ich versuche gerade mit einem kleinen Perscript in einer Textdatei alle Umlaute zu ersetzen. Doch leider ignoriert das Pattern Matching sämtliche Umlaute.
Beispiel:

$Text =~ s/ä/ae/g;
$Text =~ s/ö/oe/g;
$Text =~ s/ü/üe/g;
$Text =~ s/Ä/Ae/g;
$Text =~ s/Ö/Oe/g;
$Text =~ s/Ü/Ue/g;
$Text =~ s/ß/sz/g;

Wenn ich andere Zeichen als Muster eingebe, dann funktioniert die Substitution problemlos.

Grüße.
craano.

[craano]

Edit: Unsinn Gepostet.

[craano]

Ich poste hier mal den gesamten Code - Abschnitt.
Ich denke mittlerweile, dass die Daten schon beim einlesen falsch interpretiert werden.

my $i = 0;
my $Text;

find(\&wanted, '/home/craano/Desktop/Musik');
sub wanted { 

    
        if (m/mp3/ || m/MP3/){
        $i++;
        my $mp3 = MP3::Tag->new($_);
        $mp3->config("autoinfo","ID3v1","ID3v2");
        my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
        $Text = $i." ; ".$artist." ; ".$album." ; ".$track." ; ".$title." ; ".$year." \n";

$Text =~ s/ä/ae/g;
$Text =~ s/ö/oe/g;
$Text =~ s/ü/ue/g;
$Text =~ s/Ä/Ae/g;
$Text =~ s/Ö/Oe/g;
$Text =~ s/Ü/Ue/g;
$Text =~ s/ß/sz/g;

print $Text;
        }    
}

Die Ausgabe von print ist verunstaltet. Jeder Umlaut wird so dargestellt. " � ". Eine weitere sinnvolle Verwendung von $Text ist so leider nicht möglich.

Ich hoffe jemand von Euch hat noch eine Idee.

Wenn ich die Ausgabe in eine Datei pipe, dann kann ein Editor (gedit) die Sonderzeichen darstellen! Ein less "datei" zeigt mir die Sonderzeichen nicht an, sondern substituiert diese. Ein "ö" wird zu <F6> und ein "ä" wird als <E4> angezeigt.

Was bedeutet das. Wie bekomme ich die Umlaute auf der Shell richtig angezeigt, dass ist nötig, weil ich aus diesen Informationen Dateinamen generieren will, das ist ohne richtige Sonderzeichen wenig sinnvoll.

btw: Wenn ich direkt ein

print "äöü";

ausgeben lasse, dann werden die Zeichen auch in der Shell richtig dargestellt.

Grüße.
craano.

[undefined]

Ist sehr wahrscheinlich ein Editor Zeichensatz Problem.
* In welchen Format wird gespeichert?
* Ist das Format Identisch mit der meiner Umgebung. export -p | grep LC
* Wie kann ich Umwandeln iconv --help

[craano]

Habe mittlerweile die Lösung.

use utf8;
utf8::encode($_);
bzw
utf8::decode($_);


lassen die Umlaute unverstümmelt erscheinen.

Grüße.
craano.

[undefined]

Dann fängt aber das Drama an.
Wann ist es ein utf8 und wann nicht
Ein Work Arround wäre.

my $str;
my $check = utf8::encode( utf8::decode($_) );
if ( $check == $_ )
  $str = $_;
else
  $str = utf8::encode( $_ ); 

Es ist Besser du versuchst von Anfang an einen Einheitlichen Zeichensatz zu haben. Sonst wirst du immer wieder das Problem haben.