Foro - Perl en Español

Buenas, tengo una consulta respecto al siguiente ejercicio: tengo una variable completa (llamada línea) de la forma:


Como se muestra en el ejemplo mi variable contiene varias veces la frase que comienza con "La prueba " y termina en "," existiendo la posibilidad de que hayan saltos de línea entre medio. La idea es intentar de adquirir todas las frases que comienzan con "La prueba " y terminan en "," pero utilizando expresiones regulares. El código que más o menos he manejado es el siguiente:



Sin embargo solo me lee la primera aparición de la frase que quiero y ahí termina el programa. Si alguien tendría alguna idea sería muy bueno. Desde ya gracias

Bienvenido a los foros de Perl en Español, Pablo3728.

En lugar de if(), debes usar while(): quieres hacer un bucle por todas las apariciones.

Bueno, cuando vas a usar el operador /g, necesitarás usar una sentencia infinita, en este caso while(), ya que tendrás que capturar lo mismo valores en la misma cadena, pero el if(), al capturar el primer valor se termina la expresión, en cambio while() se sigue ejecutando...


Y la salida:


La expresión regular:
Puede existir algún espacio o punto antes de La prueba

Capturamos los los carácter Alfa-numéricos, puntos, y espacios... Usamos los corchete de agrupación...

Y recordamos que la captura termina antes de la coma.

Saludos.

Bueno, ¡muchísimas gracias! funcionó perfecto. ¡Seguiremos en contacto!

Esta solución también te vale, además de respetarte a los finales de línea:


Sale:


La expresión regular busca, de forma repetida (/g) por la cadena de $texto, teniendo en cuenta que tiene caracteres de fin de línea (/s). Y lo que busca es "La prueba", seguido del menor número de caracteres posibles, que capturamos ((.*?)), antes de la siguiente ','.