Pruebe el Archivo:::: Encuentran que la Regla de:: es un módulo Perl para probar archivos y directorios con File::Find::Rule.

SINOPSIS

use la Prueba:: Archivo los:: Encuentran la Regla de::;

# Compruebe que todos los archivos en el $dir tienen nombres prudentes
mi $rule = File::Find::Rule
-> archivo
-> pariente
-> not_name (qr / ^ [w] {1,8}. [a-z] {3,4} $/);
match_rule_no_result ($rule, $dir, Nombres de fichero okey);

# ¡Compruebe que todos nuestros guiones perl tienen el uso estricto!
mi $rule = File::Find::Rule
-> archivo
-> pariente
-> nombre (@perl_ext)
-> not_grep (qr / ^ s*uses+strict;/m, suscripción {1});
match_rule_no_result ($rule, $dir, el uso estricto del uso);

# Con un poco de ayuda de File::Find::Rule::MMagic
# Compruebe que hay menos de 10 imágenes en el $dir
# con un tamaño> 1Mo
mi $rule = File::Find::Rule
-> archivo
-> pariente
-> magia (imagen / *)
-> tamaño (> 1Mo);
match_rule_nb_result ($rule, $dir, <10, Pocas imágenes grandes);
# Podemos reutilizar nuestro objeto de F:F:R
match_rule_nb_result ($rule, $another_dir,> 100, muchas imágenes grandes);

# Compruebe el resultado exacto de una regla
mi $dirs = [qw (web lib datos tmp)];
mi $rule = File::Find::Rule
-> directorio
-> mindepth (1)
-> maxdepth (1)
-> pariente;
match_rule_array ($rule, $dir, $dirs, estructura de Directorio okey));