Cargando

Ir a contenido

X

Perl - variable de sustitución?





  AUTOR PREGUNTA

Publicado 30 junio 2014 - 20:31
Estoy trabajando con Perl y me gustaría saber de qué forma puedo usar una variable como variable de sustitución?
  • ¿Tienes la misma pregunta? Yo también
  • Volver arriba


 

Publicado 30 junio 2014 - 22:08
Si bien puedes usar eval pero se volvería bastante complejo

 

Publicado 30 junio 2014 - 22: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;



   AUTOR PREGUNTA

Publicado 01 julio 2014 - 04:37
Gracias Felipe crack!


X