Foro - Perl en Español

por **JavierMolina** » 2011-05-17 07:45 @364

Hola amigos, parece una cosa muy sencilla, pero he estado buscando en Google durante mucho rato y sigo sin resolverlo.

Quiero usar una expresión regular pero pasándole variables, ej:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $prueba1 = "Hola";
my $prueba2 = "Adios";
my $texto = "Hola, Hola, Hola";
$texto =~ s/$prueba1/$prueba2/g;
print $texto;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y la salida debería ser: "Adios, Adios, Adios". Pero no sale nada.

Esta claro que no está interpretando las variables, o las está interpretando como texto "$prueba1".

Saludos

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $prueba1 = "Hola";
my $prueba2 = "Adios";
my $texto = "Hola, Hola, Hola";
print $texto, "\n";
$texto =~ s/$prueba1/$prueba2/g;
print $texto, "\n";           
 
__END__
Hola, Hola, Hola
Adios, Adios, Adios
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Solo habría una combinación en la que no habría interpolación de las variables: si en vez de usar '/', usáramos "'" (comillas simples), como delimitadores de la expr. regular.

por **JavierMolina** » 2011-05-17 08:14 @384

Hola, explorer.

Humm, esto es rarísimo, lo he vuelto a probar y ahora parece que funciona

. Lo peor de todo es que he estado más de una hora buscando por Google y no encontraba nada, normal es tan obvio. Bueno, explorer, muchas gracias por hacerme recuperar la cordura.

Un saludo.

Foro - Perl en Español

Sustitución en Perl con variables

Sustitución en Perl con variables

Publicidad

Re: Sustitución en Perl con variables

Re: Sustitución en Perl con variables

¿Quién está conectado?