🚀 go-pugleaf

El 1 Sep 2003 15:31:14 -0700, Francesco Moi 
 <francescomoi@europe.com> dijo:
> Hola.
> 
> En Perl, tengo una cadena con un texto, en la que me gustar�a sustituir 
> las palabras 'programacion', 'programa' o 'programador' por 'program'.
> 
> Con esta RegExp funciona:
> $texto =~ s/programador|programa|programacion/program/g;
> 
> Pero como son palabras muy parecidas, pensaba que se podr�a hacer
> mucho m�s facil, como por ejemplo:
> $texto =~ s/program[ador,a,cion]/program/g;
> $texto =~ s/program[ador|a|cion]/program/g;
> 
> Pero ninguna de las dos funciona. �Alguien sabe como hacer m�s corta
> la RegExp, si es que se puede?
> 
> Gracias, y un saludo.

Creo que no has entendido como funciona el []. Pero tu mismo te puedes
dar cuenta depurando la expresi�n regular. Veamos:

1) Primer caso (Bueno)

$  perl -e  'use re 'debug'; \
 $texto =~ s/programador|programa|programacion/program/g;'

Compiling REx `programador|programa|programacion'
size 15 
   1: BRANCH(6)
   2:   EXACT <programador>(15)
   6: BRANCH(10)
   7:   EXACT <programa>(15)
  10: BRANCH(15)
  11:   EXACT <programacion>(15)
  15: END(0)
minlen 8 

2) Segundo caso

$  perl -e  'use re 'debug'; $texto =~ s/program[ador,a,cion]/program/g;'
Compiling REx `program[ador,a,cion]'
size 13 first at 1
   1: EXACT <program>(4)
   4: ANYOF[,acdinor](13)
  13: END(0)

Esto no es lo que quieres

3) Tercer caso
$ perl -e  'use re 'debug'; $texto =~ s/program[ador|a|cion]/program/g;'
Compiling REx `program[ador|a|cion]'
size 13 first at 1
   1: EXACT <program>(4)
   4: ANYOF[acdinor|](13)
  13: END(0)

Esto tampoco.

Como ves [] simplemente define una clase de *caracteres*, igual que lo
es \w o \d. Eso no te vale. Lo que necesitas es:

$ perl -e  'use re 'debug'; $texto =~ s/program(ador|a|acion)/program/g;'
Compiling REx `program(ador|a|acion)'
size 18 first at 1
   1: EXACT <program>(4)
   4: OPEN1(6)
   6:   BRANCH(9)
   7:     EXACT <ador>(16)
   9:   BRANCH(12)
  10:     EXACT <a>(16)
  12:   BRANCH(16)
  13:     EXACT <acion>(16)
  16: CLOSE1(18)
  18: END(0)

O si quieres coger tambi�n programadores, programatico, etc...:
$ perl -e  'use re 'debug'; $texto =~ s/program[a-zA-Z]*?/program/g;' 
Compiling REx `program[a-zA-Z]*?'
size 15 first at 1
   1: EXACT <program>(4)
   4: MINMOD(5)
   5: STAR(15)
   6:   ANYOF[A-Za-z](0)
  15: END(0)

Puedes echarle un vistazo tambi�n, por si tienes dudas a las p�ginas man
perlre y perlretut.

Saludos

Samuel

-- 
Samuel Mo�ux Salvador
PGP Key pgp.rediris.es    -----         KeyID 0x822583C2