我正在编写一个与 Perl 中的文档一起使用的程序，许多文档都具有诸如ä, ö, ü, é, etc（大写和小写）。我想将它们替换为 ASCII 对应项a, o, u, e, etc。我将如何在 Perl 中做到这一点？
我想到的解决方案之一是使用一个散列，其中键是元音变音和重音字符，值是对应的 ASCII，但这需要我有一个所有元音变音和重音字符的列表，但我没有，如果我建立一个列表，我肯定会错过很多，因为我不熟悉所有可能有元音变音、重音符号和其他变音符号的字符。
与往常一样，如果您想到的问题肯定不只是您的问题，CPAN 上已经有解决方案。 ）在这种情况下它被称为文本::Unicode https://metacpan.org/module/Text::Unidecode
use warnings;
use strict;
use utf8;
use Text::Unidecode;
print unidecode('ä, ö, ü, é'); # will print 'a, o, u, e'
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
