我可以使用y运算符在Perl中进行非一对一的音译吗?
发布时间:2020-12-16 06:10:07 所属栏目:大数据 来源:网络整理
导读:Perl中的y运算符执行逐个字符的音译.例如,如果我们对字符串“foobar”执行y / abc / dfg,则会得到“foofdr”.但是,如果我想将“
Perl中的y运算符执行逐个字符的音译.例如,如果我们对字符串“foobar”执行y / abc / dfg,则会得到“foofdr”.但是,如果我想将“ā”音译为“ei”,将“?”音译为“a:”,将“ō”音译为“?u”,将“o”音译为“?”.
我尝试了以下代码行,但没有运气:( y/ā?ōo/(ei)(a:)(?u)?/ 我们希望有解决这个问题的方法吗?或者我是否必须重复使用s运算符并进行大量繁琐的替换? 在此先感谢任何指导:) 解决方法
在这种情况下,创建一个哈希并轻松地从键到字符串.
use warnings; use strict; use utf8; binmode STDOUT,":utf8"; my $string = "ā?ōo"; my %trans = qw/ā ei ? a: ō u o ?/; my $keys = join '',keys %trans; $string =~ s/([$keys])/$trans{$1}/g; print "$stringn"; 如果您的键长度超过一个字符,则需要通过按长度减少的顺序对键进行排序并使用(| |)而不是[]来连接它们来更改此值. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |