File::FindByRegex es una envoltura Perl para File::Find que encuentra un árbol de directorio y ejecuta un poco de acción para cada archivo cuyo nombre matchs un regex.

SYNOPSYS

use File::FindByRegex;

$find = Archivo:: FindByRegex-> nuevo ({

-srcdir => [C:tmpteradata-sql],
-tardir => C:tmpteradata-sqldoc,
- encuentran => {no_chdir => 1},

- rellamadas =>
{
qr/.p (l|m|od|t) $/oi, => &treat_pod,
qr/sql. ¿+?. sql$/oi, => treat_pod,
¿qr/.html? $/oi, => &treat_html,
qr/.txt$/oi => &treat_txt,
qr/. (jpg|gif|png|bmp|tiff) $ / => suscripción {&treat_graphic (_)}
},

- no hacen caso =>
[
qr/eg. +. sql$/oi, # *.sql en directorio eg
qr/java/oi, # Todos los archivos en directorio de java.
],

-excepts =>
[
¿qr/java. *?. ¿html? El $/oi # dont no hace caso de *.html en java /
]
});

suscripción File::FindByRegex::treat_pod
{
mi $this = cambio;
...
}

suscripción File::FindByRegex::treat_html
{
mi $this = cambio;
...
}

suscripción File::FindByRegex::treat_txt
{
mi $this = cambio;
...
}

suscripción File::FindByRegex::treat_graphic
{
mi $this = cambio;
...
}

$find-> travel_tree;