Foro - Perl en Español

Publicado: **2013-04-12 14:59 @665**

Quiero extraer exactamente la ruta absoluta junto con el directorio wp-content con una posible profundidad de 12 directorios... ¿Habría alguna manera de compactar esta expresión que me funciona pero es un poco larga?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(WP, "/tmp/salida.txt");
 
while (my $p = <WP>) { 
 
    while ($p =~ m#((/\w*|/\w*/\w*|/\w*/\w*/\w*|/\w*/\w*/\w*/\w*|/\w*/\w*/\w*/\w*/\w*|/\w*/\w*/\w*/\w*/\w*/\w*)?/wp-content/)#g) {
        my $dir = $1;
   
        $directorios{ $dir } = 1;
    }
}
 
close(WP);
 
my @directorios = keys %directorios;
 
for  my $dir (@directorios) {
    print  $dir ."\n";
}
 
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Gracias de antemano =^.^=

Publicado: **2013-04-12 16:12 @717**

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    while ($p =~ m#((?:/\w+){0,12}/wp-content/?)#g) {
        $directorios{ $1 } = 1;
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Publicado: **2013-04-12 16:42 @738**

Gracias, explorer. Perdona mi ignorancia, pero, ¿qué hacen los dos puntos, exactamente? Es que no están en los tutoriales de expresiones regulares que están en la página ni en los que tengo aquí. Lo haces tan bonito que parece fácil. ¡ja,ja,ja,ja!

Publicado: **2013-04-12 16:57 @748**

El (?:...) es uno de los patrones extendidos de Perl (busca por (?:patrón)).

Lo que hace es decir que esos paréntesis no son de captura, sino solo de agrupación. No capturan la coincidencia con el patrón y la guardan en $1, $2, $3, etc., sino que los necesitamos para englobar la expresión junto con el cuantificador con las llaves que le sigue.

Tampoco pasaría nada si se quitara '?:' y fueran unos paréntesis normales (al menos, en esta expresión regular; en otra, sí que serían necesarios).

Publicado: **2013-04-13 02:46 @157**

Muchas gracias por tu paciencia.
Que tengas un buen finde

Foro - Perl en Español

Compactar una expresión regular

Compactar una expresión regular

Re: Compactar una expresión regular

Re: Compactar una expresión regular

Re: Compactar una expresión regular

Re: Compactar una expresión regular