Estoy trabajando con Perl y me gustaría saber de qué forma puedo usar una variable como variable de sustitución?
Perl - variable de sustitución?
Iniciado por
Marco
, jun 30 2014 21:31
Esto también te interesa!
#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;