Perl und Unicode - #120306 (Allgemeines zu Perl)

Vermillion

2009-04-06 08:55

User since
2008-07-18
24 Artikel
BenutzerIn
[default_avatar]

Da meine Konsole anscheinend die Zeichenkodierung nicht akzeptiert muss ich wohl auf die längere Antwort zurückgreifen =)

weil notepad und wordpad meines wissens Dateien immer in utf8 speichern sollte ich die Dateien wohl Problemlos hiermit auslesen können:

Code (perl): (dl )

open my $handle, '<:encoding(UTF-8)', $datei;

Wenn ich das richtig verstanden habe müsste ich dann bevor ich wieder mit den Strings arbeite (z.B. splitten) alles wieder dekodieren.

Code (perl): (dl )

my $text_str = decode(utf-8, $handle);

Anschliessend müsste ich die Benutzereingabe als utf8 kodieren. Und dann anschliessend gleich wieder dekodieren damit ich Sie mit den ausgelesenen Strings vergleichen kann. würde das so gehen? Oder habe ich etwas falsch verstanden?

Code (perl): (dl )

my $answer = encode(utf8, <STDIN>);
    $answer = decode(utf8, $answer);
    system 'cls';
    chomp($answer);
    if ($answer eq $list[0]->{answer}) {
        print "Richtig: ",
            "Die Antwort ist *$list[0]->{answer}*\n\n";
        shift(@list);

        next;
    }