Foro - Perl en Español

Recién comienzo con las expresiones regulares y me parece todo un arte al igual que complejo.

Estoy intentando extraer los directorios del código fuente de una página web pero no consigo coger la lógica para que tenga más profundidad.

En mis intentos he intentado lo siguiente:



La var $p es la línea que va interpretando el código fuente.

O sea: creo que le he indicado que busque cualquier directorio que no empiece por '/tag', '/TR', '/tr', '/www' y '/xhtml1', seguido de cualquier palabra más '/' seguido de cualquier palabra más '/' y que si no es repetida la concordancia que lo meta dentro de un array... pero solo consigo una profundidad de dos directorios.


Me preguntaba si hay alguna manera en que no importe la profundidad de la ruta, sin tener que repetir esta partecomo hice en el código expuesto.

Gracias de antemano... Agradezco también toda la ayuda brindada en el foro ya que gracias a esa ayuda voy progresando Viva Perl y a los perleros.

Veo que le has añadido espacios en blanco alrededor de los nombres de los directorios que no quieres capturar. Creo que sobran...

A ver... podemos deducir la expresión regular si transcribimos lo que queremos capturar. ¿Y qué queremos capturar? Podemos decirlo así:

«Por cada línea leída del archivo HTML, queremos extraer todos los directorios indicados».

¿Qué es un directorio? Dentro de la definición de un URI, la parte de localización de un recurso consiste en una serie de nombres que indican el directorio y subdirectorios en donde se encuentra el recurso, intercalados por '/'. O sea, lo que es una ruta.

• '/' inicial, opcional (si está presente, indica una ruta absoluta, Si no, es relativa)
• uno o más nombres de directorio, que consisten en letras y números, terminados por '/'

Entonces, podemos expresarlo así: /?(directorio/)+

Ahora ya podemos construir la parte del programa para extraer los directorios:

• Usamos un bucle while(), junto con una expresión regular con la opción '/g', para que busque por todos los directorios de la línea (puede haber más de uno)
• El patrón del directorio es '[\w_-]', en la que '\w' representa los caracteres alfanuméricos. Más luego los dos caracteres '_' y '-'
• El patrón está rodeado por llaves, en lugar de '/'. Eso nos permite usar las '/' de forma directa, sin tener que escaparlas con una '\'
• Si coincide el patrón, es capturado en $1, y lo guardamos como clave en el hash %directorios. Como las claves de un hash son únicas, nos ahorra tener que filtrar los duplicados
• Pero antes, si el directorio coincide con alguno de los que no queremos, saltamos al siguiente

La salida ser puede hacer así:
(suponiendo que hemos activado el soporte para say())

Si queremos guardarlo en un array:

De todas maneras, la solución no es perfecta. Un URI o URL es más complicado que todo esto. (Ver expresión regular de la función uri_split() del módulo URI::Split).

Una explicación magistral, aún ando medio perdido con la expresiones regulares. Supongo que será cuestión de práctica y tiempo... Lo he implementado y funciona divinamente. Muchas gracias