gpt4 book ai didi

perl - 从重音字符中删除重音

转载 作者:行者123 更新时间:2023-12-01 07:19:31 25 4
gpt4 key购买 nike

这个问题在这里已经有了答案:





How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?

(4 个回答)


8年前关闭。




我正在寻求建议,我应该使用什么库和/或函数将国际文本转换为英文字符替代。

例如

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

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

最佳答案

首先,您可以使用 Unicode::Normalize 分解字符,然后您可以使用简单的正则表达式删除所有变音符号。 (我认为只需抓取所有非空格标记字符就可以了,但可能有一两个不起眼的异常(exception)。)

下面是一个例子:

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 - 从重音字符中删除重音,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17561839/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com