Foro - Perl en Español

por **damian1510** » 2012-11-09 10:04 @461

Hola, me surgió el siguiente problema.

Recibo en un JSON unos parámetros de configuración para conectarme a un sftp o ftp en los cuales debo recorrer un directorio y colectar los archivos que tengan un determinado nombre. Para esto uno de los parámetros en el JSON es una regExp.

En una parte del código tengo lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach my $file (@files) {
    if ( $file =~ $self->{regExp} ) {
        print "$file machea con: " . $self->{regExp} . "\n";
        $self->moveFile($file);        # Función que hace un get y lo envia a un directorio local.
    }
    else { print "$file no machea con: " . $self->{regExp} . "\n" }
}
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El tema es que $self->{regExp} puede tener cualquier tipo de regExp, por ejemplo "/mr\d+/" o incluso contener "m/mr\d+/g".

Probé varias formas y no he podido hacer que la regExp machee con el $file.

La regExp al momento de ser comprada con '=~' es un string. No sé si estoy errado o no, pero por lo que estuve investigando tendría que poder compilarla al momento de la comparación, o hacerle algún tratamiento para que la interprete como tal, pero no encuentro manera.

Espero que puedan ayudarme.
¡Gracias!

my $regexp = qr($self->{regExp});      # Creamos un patrón
 
for my $file (@files) {
    if ($file =~ $regexp ) {
        print "$file machea con: " . $self->{regExp} . "\n";
        $self->moveFile($file);        # Función que hace un get y lo envia a un directorio local.
    }
    else {
        print "$file no machea con: " . $self->{regExp} . "\n";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema está ahora cuando recibes algo como 'm//'. Para que sea correcto el código anterior, deberías antes quitar la 'm' y los delimitadores, antes de pasarlo por el operador qx().

Y otro problema a mayores es la opción '/g'. En la mayor parte de los casos, te valdrá con quitarla, igual que con la 'm' primera (la opción '/g' te serviría si fueras a crear un bucle de búsqueda contra $file, pero parece que no quieres hacer eso).

Creo que sería posible una solución más cómoda y clara, haciendo un eval(), pero ahora no tengo tiempo de investigar...

Foro - Perl en Español

Problema de macheo con Regexp desde JSON

Problema de macheo con Regexp desde JSON

Publicidad

Re: Problema de macheo con Regexp desde JSON

¿Quién está conectado?