Wie kann ich das ersetzen von Unicode-Zeichen mit ASCII in Perl?

Für eine generische Lösung, Text::Unidecode transliterate so ziemlich alles, was geworfen wird in reinem US-ASCII.

Also in deinem Fall das funktionieren würde:

perl -C -MText::Unidecode -n -i -e'print unidecode( $_)' unicode_text.txt

Dem -C ist, sicherzustellen, dass die Eingabe gelesen wird als utf8

Konvertiert:

l'été est arrivé à peine après aôut
¿España es un paìs muy lindo?
some special chars: » « ® ¼ ¶ – – — Ṉ
Some greek letters: β ÷ Θ ¬ the α and ω (or is it Ω?)
hiragana? みせる です
Здравствуйте
السلام عليكم

in diesem:

l'ete est arrive a peine apres aout
?Espana es un pais muy lindo?
some special chars: >> << (r) 1/4 P - - -- N
Some greek letters: b /Th ! the a and o (or is it O?)
hiragana? miseru desu
Zdravstvuitie
lslm `lykm

Die Letzte zeigt die Grenzen des Moduls, die keine Rückschlüsse auf die Vokale und get as-salaamu `alaykum aus dem arabischen original. Es ist immer noch ziemlich gut, ich denke,

InformationsquelleAutor mirod

Hmm, ein bisschen hart. Dies scheint es zu tun (Perl 5.10.0 auf MacOS X 10.6.2):

perl -w -e "
use open ':encoding(utf8)';
use open ':std';

while (<>)
{
    s/\x{2013}/-/g;
    print;
}
"

Habe ich noch nicht minimiert. Sehen perldoc auf 'öffnen' - Anweisung.

Ausgehend von meiner (begrenzten) Experimente, die '-p' option nicht erkennt, 'open' - Richtlinien.
Sie können 'qw()' zu zitieren, die Worte:

perl -w -e "
use open qw( :encoding(utf8) :std );
while (<>)
{
    s/\x{2013}/-/g;
    print;
}

Ich weiß nicht, wenn '-p' nicht gehorchen 'use open' ist ein Fehler oder ein design-Merkmal.

InformationsquelleAutor Jonathan Leffler