regex - How to write Regular Expression in perl with generic way -
i have written code as:
$body =~ s/í/Í/g;     $body =~ s/ó/Ó/g;     $body =~ s/ú/Ú/g;    $body =~ s/ý/Ý/g; but not way.
could please provide generic solution?
this solved problem phrased:
use html::entities qw(decode_entities); $unescaped_body = decode_entities($escaped_body); if want arbitrary pairs of in , out, should set hash.
my %remap = (    red   => "rojo",    white => "blanco",    blue  => "azul", );  while (my($from, $to) = each %remap) {     $text =~ s/\q$from/$to/g; } but slow; there better ways of doing it, aren't ready them yet.
Comments
Post a Comment