Prüfung:: Datei:: Entdeckung:: Richtlinie ist eine Perl-Baugruppe, zum der Dateien und der Verzeichnisse mit Datei zu prüfen:: Entdeckung:: Richtlinie.

SYNOPSE

Gebrauch Prüfung:: Datei:: Entdeckung:: Richtlinie;

# prüfen, ob alle Dateien in $dir vernünftige Namen haben
mein $rule = Datei:: Entdeckung:: Richtlinie
- >file
- >relative
- >not_name (qr/^ [w] {1.8}. [A-z] {3.4} $);
match_rule_no_result ($rule, $dir, Datei benennt o.k.);

# haben prüfen, das unser ganzes Perl scripts, den strengen Gebrauch!
mein $rule = Datei:: Entdeckung:: Richtlinie
- >file
- >relative
- >name (@perl_ext)
- >not_grep (qr/^s*uses+strict; /m, Unterseeboot {1});
match_rule_no_result ($rule, $dir, verwenden strengen Verbrauch);

# mit etwas Hilfe der Datei:: Entdeckung:: Richtlinie:: MMagic
# prüfen, ob es kleiner als 10 Bilder in $dir gibt
# mit einer Größe > einem 1Mo
mein $rule = Datei:: Entdeckung:: Richtlinie
- >file
- >relative
- >magic (image/*)
- >size (>1Mo);
match_rule_nb_result ($rule, $dir, <10, wenige grosse Bilder);
# können wir unser F wiederverwenden: F: R Nachricht
match_rule_nb_result ($rule, $another_dir, >100, viele grossen Bilder);

# Check das genaue Resultat von einer Richtlinie
mein $dirs = [qw (Web-Bibliotheksdaten tmp)];
mein $rule = Datei:: Entdeckung:: Richtlinie
- >directory
- >mindepth (1)
- >maxdepth (1)
- >relative;
match_rule_array ($rule, $dir, $dirs, Verzeichniszelle-O.K.));