如何用perl方式在perl中编写正则表达式

Question

我编写了代码：

$body =~ s/Í/Í/g;    
$body =~ s/Ó/Ó/g;    
$body =~ s/Ú/Ú/g;   
$body =~ s/Ý/Ý/g;

但这不是一个好方法。

请您提供通用解决方案吗？

Answer 1

这是目前已解决的问题：

use HTML::Entities qw(decode_entities);
$unescaped_body = decode_entities($escaped_body);

如果你真的想进行任意一对的输入和输出，你应该把它设置成一个哈希。

my %remap = (
   red   => "rojo",
   white => "blanco",
   blue  => "azul",
);

while (my($from, $to) = each %remap) {
    $text =~ s/\Q$from/$to/g;
}

但那会很慢;有更好的方法，但你可能还没准备好。