Foro - Perl en Español

Me han surgido un par de dudas relacionadas con el operador =~ s//g;

Supongamos que tengo una lista de términos de longitud variable, cada uno de los cuales consta de un prefijo y un sufijo separados por un carácter determinado, que es lo único común a todos los elementos de la lista.

Imaginemos que tuviera éste aspecto:

donde todo lo que está antes de "_" es el prefijo, y lo que está después el sufijo.

Pues bien, quiero usar el operador de substitución sobre todos los elementos del arreglo, cosa que hago con algo como:


Hasta ahí, nada raro. Sin embargo quiero ejecutar la substitución sólo sobre una parte de cada elemento y preservar la otra, es decir, la idea sería:

Sustituye "a" por "e" pero solamente si está antes de "_".

Mi primera idea fue dividir cada elemento en dos:

y trabajar sólo sobre el primero, pero al imprimir @arreglo tras la sustitución obtengo:

1327

Es decir, me aplana la lista a un escalar y entonces al aplicar s// lo que obtengo es el número de veces que ocurre la substitución.

Como el número de caracteres y la posición del separador no son constantes no puedo usar substr() tampoco.

Puedo solucionarlo fácilmente con sed, o perl -e o esquivar el problema con otro enfoque (que presenta sus propios problemas) pero me gustaría saber la manera de incluir la solución en mi programa de Perl (seguramente será muy evidente una vez dicho, pero hoy no estoy inspirado, está claro).

Y esa es la primera duda, la segunda, si no cae el fin de semana ya irá en su propio hilo.

más intentos: usar split de ésta manera tampoco funciona



resultado:


Al menos he dejado de obtener un número , entiendo que todo esto son referencias y que cada elemento es ahora un array, ¿voy bien?

Bueno, una solución sencilla es la que comentas: partir, sustituir, recomponer:

Estoy sospechando que se puede hacer con una sola expresión regular, pero localizar todas las 'a' que están delante de '_', es algo complicado... O es que se me escapa algo...

Hacerlo con una expresión regular sería un ejercicio interesante en cualquier caso, pero la solución que das es impecable. Obviamente me estaba liando al usar split().

Muchas gracias.

Encontré la solución:

El funcionamiento de la expresión regular es la siguiente:

«Queremos sustituir todas (/g) las 'a' por 'e', teniendo en cuenta que, desde la última sustitución (\G) hasta la siguiente 'a', no debe existir ninguna 'a' ni '_' ([^a_]*). Todos esos caracteres que preceden a la 'a' a sustituir, no formarán parte de la sustitución (\K)».

La expresión regular empieza buscando las letras 'a' y las va sustituyendo, hasta que encuentra el '_', momento en el cual ya no se puede seguir cumpliendo la regla '\G[_]', por lo que falla y termina la sustitución.

Interesante , esta me la apunto. Supongo que podría usarse también $', ahora que lo pienso.