Dossier:: FindByRegex is een omslag Perl voor Dossier:: Vind dat vondsten een folderboom en looppas één of andere actie voor elke dossier waarvan naam matchs een regex.

SYNOPSYS

gebruiks Dossier:: FindByRegex;

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

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

- callbacks =>
{
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|TIF) &treat_graphic $=> sub {(@_)}
},

- negeer =>
[
qr/b.v. +.sql$/oi, # *.sql in folder b.v.
qr/java/oi, # Alle dossiers in de folder van Java.
],

- zondert => uit
[
qr/java.*? .html? $/oi # negeer geen *.html in Java
]
});

sub - dossier:: FindByRegex:: treat_pod
{
mijn $this = verschuiving;
…
}

sub - dossier:: FindByRegex:: treat_html
{
mijn $this = verschuiving;
…
}

sub - dossier:: FindByRegex:: treat_txt
{
mijn $this = verschuiving;
…
}

sub - dossier:: FindByRegex:: treat_graphic
{
mijn $this = verschuiving;
…
}

$find->travel_tree;