Foros del web, para los que viven de bits

Agus211 · 23/04/08, 20:45:41

Hola, quería saber si alguien me puede ayudar con la siguiente duda:

Tengo un string el cual puede ser por ejemplo: "la casa del casamiento es linda. La CASA se ve de lejos".

Ando necesitando reemplazar el término(aunque aparezca en mayúsculas o minúsculas) "casa" por "xxxx". Es decir, la expresión debería quedar: "la xxxx del xxxxmiento es linda. La xxxx se ve de lejos".

Logré reemplazar "casa", pero al querer reemplazar las otras 2 apariciones, me falla o bien cambia por ejemplo "casamiento" por "xxxx".

Me podrían ayudar?.

Gracias!.

aloqui · 24/04/08, 01:01:28

Prueba con ésto, a mí me ha funcionado:

Código:

#!/usr/bin/perl
use strict;
my $frase = "la casa del casamiento es linda. La CASA se ve de lejos";
$frase =~ s/casa/xxxx/gi;
print "frase='$frase'\n";

Agus211 · 05/05/08, 15:42:09

Si!, a mi también, muchas gracias!.

Agus211 · 05/05/08, 15:50:32

Disculpen, nueva consulta...

Por que no es posible hacer lo siguiente?:

Supongamos que:

$busca = 'CASA';
$param = 'LA CASA DEL ARBOL ESTA MANCHADA DE PINTURA';

$param =~ s/$busca/\$\{busca\}/gi;

$busca = 'CAJA';

print $param;

Cuando imprimo, en lugar de mostrarme: "LA CAJA DEL ARBOL ESTA MANCHADA DE PINTURA", me muestra el cambio literal de la expresion: "LA ${busca} DEL ARBOL ESTA MANCHADA DE PINTURA".

Se puede lograr esta funcionalidad con expresiones regulares?.

Saludos y perdon por las molestias.

a2a2 · 05/05/08, 15:56:11

Te sustituye "${busca}" en el resultado porque le has puesto una barra invertida delante del $.

¿ Que quieres hacer ¿ Cambiar CASA por CAJA, usando variables ? En ese caso creo que es:
$origen = 'CASA';
$destino = 'CAJA';
$frase = 'LA CASA DEL ARBOL ESTA MANCHADA DE PINTURA';
$frase =~ s/$origen/$destino/gi;

Agus211 · 05/05/08, 16:16:34

Hola, nono, ese no sería el caso. Lo que me sucede en concreto es lo siguiente:

Yo tengo un array con por ejemplo 2 elementos:

@v = ['casa','color'];
$frase = 'La casa de color azul';

y cuando lo recorro, hago el siguiente reemplazo:

foreach $param (@v) {
$frase =~ s/$param/${param}<\/FONT>/gi;
}

El problema que me surgió, es que al tomar $param el valor 'color', me queda mal formada la frase, es decir:

Al ser $param = 'casa' se hace lo siguiente:
"La casa de color azul"

Al pasar a ser 'color', me cambia de mas:

"La ="red">casa de color azul"

De esta manera, me rompe el tag de fuente que puse.

a2a2 · 05/05/08, 16:31:45

Ah, ahora entiendo.
Pues en este caso tienes suerte y es facil corregirlo ya que en un caso es en mayusculas y en otro en minusculas. Sólo tienes que quitar el modificador "i" (ignore case) que hay al final de la expresión regular. Otros casos pueden no ser tan fáciles y necesitas modificar la expresión regular, añadiendo espacios u otras cosas.

Agus211 · 06/05/08, 07:37:45

Hola, gracias por la ayuda, entonces si quiero que cambie cuando es en mayusculas como minusculas debo hacer 2 expresiones regulares?. Saludos.

a2a2 · 06/05/08, 11:59:38

A ver, si incluyes el modificador "i" (al final de la expresión regular) le indicas que considere igual mayúsculas y minúsculas. Si no incluyes dicho modificador, las mayusculas y las minúsculas las considerará letras diferentes.

Agus211 · 06/05/08, 12:54:00

Pero si en el vector pongo: "COLOR" en lugar de "color", falla nuevamente. Saludos.

jferrero · 06/05/08, 14:42:22

Código:

#!/usr/bin/perl
use warnings;
use strict;

my @v = ('casa','color');
my $frase = "La casa de color azul\n";

for my $param ( @v ) {
    $frase =~ s/$param/<FONT COLOR="red">$param<\/FONT>/;
}

print $frase;

El problema está en la definición del array @v. Estabas usando corchetes, con lo que realmente estabas definiendo un array anónimo con dos elementos, con lo que @v contenía un solo elemento: una referencia a ese array.