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

概述Perl中的y运算符执行逐个字符的音译.例如,如果我们对字符串“foobar”执行y / abc / dfg,则会得到“foofdr”.但是,如果我想将“ā”音译为“ei”,将“ä”音译为“a：”,将“ō”音译为“әu”,将“o”音译为“ɒ”. 我尝试了以下代码行,但没有运气:( y/āäōo/(ei)(a:)(әu)ɒ/ 我们希望有解决这个问题的方法吗？或者我是否必须重复使用s运算符并进行大量繁 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{}/g;print "$string\n";

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

总结

以上是内存溢出为你收集整理的我可以使用y运算符在Perl中进行非一对一的音译吗？全部内容，希望文章能够帮你解决我可以使用y运算符在Perl中进行非一对一的音译吗？所遇到的程序开发问题。

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