Foro - Perl en Español

¿ Alguien me podría decir cómo una expresión regular para sacar de un variable $text todo lo que tenga 10 dígitos y mostrarlo por pantalla ?

¿Dónde están esas lecciones de expresiones regulares, Doddy?
Ni yo ni este foro estaremos aquí para siempre

¡ja,ja! Espero que dures unos 5 años más antes de que te jubiles o clonarte a una versión joven (20 años menos) xDD.

Más de una persona (me incluyo) se lamentará cuando explorer tenga que abandonar este preciado mundo; esperemos que sea después que nosotros ¡ja,ja!

Por cierto... hay demasiado ofuscamiento en el código o al menos ante mis ojos ¡je,je! Me refiero a esta parte:



Vale, la meta-secuencia \d está claro porque hablamos de dígitos y el límite de 10 entre los paréntesis, el delimitador m también me cierra pero del resto no me entero

Bueno, sí que está el código algo comprimido.

Se trata de un bucle while() que ejecuta la expresión '1', es decir, que no hace nada más que lo que ocurre dentro de la expresión de condición del propio while().

Más información en la sección Instrucciones compuestas de perlsyn.

La condición es una expresión regular, que confronta el contenido de la variable $text con la concordancia con un patrón, de forma repetida (/g). Además, la concordancia ignorará los espacios en blanco que contenga el patrón (/x). Así, será más fácil de entender.

El patrón trata de localizar la posición de diez dígitos (\d{10}), rodeados por límites de palabra (\b) En caso de encontrarlos, los capturará con la pareja de paréntesis (()). Además, ejecutará el código ((??{{ ... }})) que sigue, que lo que hace es sacar a pantalla el valor de lo capturado en el primer par de paréntesis: say $1.

Más información en perlre.