在 Perl 中翻译字符串

Question

在 PHP 中， strtr 可以接受数组的输入并替换字符串中所有出现的键，并且将首先尝试最长的键。

Perl 中有等效的函数吗？

Answer 1

是的，简单的正则表达式：

# Where %h contains your key => value mappings
my $keys = join '|', sort {length($b) <=> length($a)} keys %h;
$a =~ s/($keys)/$h{$1}/g;

Answer 2

使用 Data::Munge 的 list2re 函数，而不是手动构建正则表达式来评估像这样：

my $re = list2re sort {length($b) <=> length($a)} keys %h;
$a =~ s/($re)/$h{$1}/g;