perl - 如何将带有重音符号、变音符号等的字母转换为 Perl 中的 ASCII 对应字母？

Question

我正在编写一个处理 Perl 文档的程序，而且很多文档都包含诸如 ä, ö, ü, é, etc 之类的字符。 (大写和小写)。我想用 ASCII 对应物替换它们 a, o, u, e, etc .我将如何在 Perl 中做到这一点？

我想到的解决方案之一是使用哈希，键是变音和重音字符，值是 ASCII 对应物，但这需要我有一个所有变音和重音字符的列表，我没有，如果我建立一个列表，我肯定会错过很多，因为我不熟悉所有可能带有变音、重音和其他变音符号的字符。

Answer 1

像往常一样，如果您想到一个肯定不只是您的问题，那么 CPAN 上已经有一个解决方案。 ) 在这种情况下，它被称为 Text::Unidecode

use warnings;
use strict;
use utf8;
use Text::Unidecode;
print unidecode('ä, ö, ü, é'); # will print 'a, o, u, e'