我可以使用y运算符在Perl中进行非一对一的音译吗？

Question

Perl中的y运算符执行逐个字符的音译.例如,如果我们对字符串"foobar"执行y/abc/dfg,则会得到"foofdr".但是,如果我想将"ā"音译为"ei",将"ä"音译为"a:",将"ō"音译为"әu",将"o"音译为"ɒ".

我尝试了以下代码行,但没有运气:(

y/?ä?o/(ei)(a:)(?u)?/

我们希望有解决这个问题的方法吗？或者我是否必须重复使用s运算符并进行大量繁琐的替换？

在此先感谢任何指导:)

Answer 1

在这种情况下,创建一个哈希并轻松地从键到字符串.

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 "$string\n";

如果您的键长度超过一个字符,则需要更改此值,方法是按长度减少的顺序对键进行排序,然后使用( | | )而不是使用它们来连接它们[ ].