Perl - variable de sustitución?
Iniciado por
Marco
, jun 30 2014 21:31
Esto también te interesa!
PREGUNTAS SIMILARES
#3
Publicado 30 junio 2014 - 23:11
Prueba con la siguiente solución:
use warnings;
use strict;
my @stuff = ( { search => "esto", replace => "eso", modifier => "g", }, { search => "valor", replace => "otro", modifier => "i", } );
$_ = "Un modificador\n";
for my $h (@cosas) { if ($h->{modifier} eq 'g') { s/$h->{search}/$h->{replace}/g; } elsif ($h->{modifier} eq 'i') { s/$h->{search}/$h->{replace}/i; } } print;
