Datei:: FindByRegex ist eine Perl-Verpackung für Datei:: Finden, das einen Verzeichnisbaum findet und etwas Klage auf jede Datei laufen läßt, deren Namensmatchs ein regex.

SYNOPSYS

Gebrauch Datei:: FindByRegex;

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

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

- Rückrufe =>
{
qr/.p (L|m|Außendurchmesser|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) $ => Unterseeboot {&treat_graphic (@_)}
},

- => ignorieren
[
qr/z.B. +.sql$/oi, # *.sql im Verzeichnis z.B.
qr/java/oi, # alle Dateien im Java-Verzeichnis.
],

- schließt => aus
[
qr/java.*? .html? $/oi # ignorieren nicht *.html in Java
]
});

Unterreihe:: FindByRegex:: treat_pod
{
mein $this = Schiebung;
…
}

Unterreihe:: FindByRegex:: treat_html
{
mein $this = Schiebung;
…
}

Unterreihe:: FindByRegex:: treat_txt
{
mein $this = Schiebung;
…
}

Unterreihe:: FindByRegex:: treat_graphic
{
mein $this = Schiebung;
…
}

$find->travel_tree;