Foro - Perl en Español

Hola.

Tengo la siguiente cadena de texto :

:La vida es un misterio sin sentido! :Dejate de joder tio

Lo que ya tengo es /:(.*)!/, con esta expresión regular logro sacar esa parte pero lo que quiero sacar es toda la respuesta que está en el segundo ":" (Dejarte de joder tio) que vendría a ser todo lo que le sigue al segundo ':' en adelante.

¿Cómo lo haría?

Extraemos la parte final ($) que no contenga ningún ':'.

Ésta también es una opción:

Gracias explorer y a erv-z. Tengo otra duda porque quiero juntar las dos expresiones regulares en una, con un while() para que busque en un texto.

while ($content =~m/:(.*)!/) {

Y que se guarden así



Para poder imprimirlas tranquilamente.

Pero cuando intento poner la tuya se me complica. Disculpa la molestia.

¿Como quedaría?

Debes agregar la opción /g a la expresión regular, para que se aplique a todas las apariciones dentro del texto.

Has de tener cuidado con el operador avaricioso '.*' porque se "comerá" todos los caracteres posibles, así que quizás no podrás extraer las partes por separado. Mejor usa '.*?' siempre que puedas.

¿No sería mejor usar split() en lugar de una expresión regular? Si sabes que el carácter ':' no va a aparecer dentro de las dos partes, si no que es el delimitador, es muy fácil leer las partes con split().

Si pones un ejemplo junto con el código que estás probando, será más fácil ayudarte.

Ok, pues te recomiendo que mires bien el código y que te vayas al tutorial de expresiones regulares y practiques.

Aquí lo que pediste



¡Saludos!

Hola.

Tengo la siguiente cadena de texto



Lo que ya tengo son los nombres que saqué con este código:


Pero quiero separar los nombres sin saber cuántos son, o sea, que
separe todos los nombres guardados en @nicks que estén cada un espacio.

Para poder imprimirlos tranquilamente de la siguiente manera: