perl – 从重音字符中删除重音符号

概述参见英文答案 > How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?                                    4个 我正在寻找建议我应该使用哪些库和/或函数将国际文本转换为它的英文字符替代品. 例如 Vous avez aimé l'épée of 参见英文答案 > How to convert letters with accents,umlauts,etc to their ASCII counterparts in Perl?                                    4个
我正在寻找建议我应该使用哪些库和/或函数将国际文本转换为它的英文字符替代品.

例如

Vous avez aimé l'épée offerte par les elfes à Frodon

转换成

Vous avez aime l'epee offerte par les elfes a Frodon

解决方法 首先,您可以使用 Unicode::Normalize分解字符,然后您可以使用简单的正则表达式删除所有变音符号. (我想简单地抓住所有非间距标记字符应该这样做,但可能有一两个不起眼的例外.)

这是一个例子：

use strict;use warnings;use utf8;use Unicode::normalize;my $test = "Vous avez aimé l'épée offerte par les elfes à Frodon";my $decomposed = NFKD( $test );$decomposed =~ s/\p{NonspacingMark}//g;print $decomposed;

输出：

Vous avez aime l'epee offerte par les elfes a Frodon

总结

以上是内存溢出为你收集整理的perl – 从重音字符中删除重音符号全部内容，希望文章能够帮你解决perl – 从重音字符中删除重音符号所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。