Dossier : : FindByRegex est un emballage de Perl pour le dossier : : Trouver qui trouve des arborescences des répertoires et exécute une certaine action pour chaque dossier dont les matchs nommés une expression régulière.

SYNOPSYS

dossier d'utilisation : : FindByRegex ;

$find = dossier : : FindByRegex->new ({

- => de srcdir [C : tmpteradata-SQL],
- => C de tardir : tmpteradata-sqldoc,
- => de trouvaille {=> 1 de no_chdir},

- => de rappels de service
{
qr/.p (l|m|OD|t)$/oi, &treat_pod de =>,
qr/sql.+ ? .sql$/oi, treat_pod de =>,
qr/.html ? $/oi, &treat_html de =>,
&treat_txt de => de qr/.txt$/oi,
qr/. (jpg|GIF|png|véhicule blindé amphibie soviétique d'infanterie|sous-marin de => de tiff) $ {&treat_graphic (@_)}
},

- ignorer le =>
[
qr/par exemple +.sql$/oi, # *.sql dans le répertoire par exemple
qr/java/oi, # tous les dossiers dans le répertoire de Java.
],

- excepte le =>
[
qr/java.* ? .html ? $/oi # n'ignorent pas *.html dans Java
]
}) ;

sous-dossier : : FindByRegex : : treat_pod
{
mon $this = commande des vitesses ;
…
}

sous-dossier : : FindByRegex : : treat_html
{
mon $this = commande des vitesses ;
…
}

sous-dossier : : FindByRegex : : treat_txt
{
mon $this = commande des vitesses ;
…
}

sous-dossier : : FindByRegex : : treat_graphic
{
mon $this = commande des vitesses ;
…
}

$find->travel_tree ;