File::DirCompare es un módulo Perl para comparar dos directorios usando rellamadas.

SINOPSIS

use File::DirCompare;

# Diff simples-r - resumen el reemplazo
use File::Basename;
El archivo:: DirCompare-> se compara ($dir1, $dir2, suscripción {
mi ($a, $b) = _;
¡si (¡! $b) {
printf "Sólo en %s: %sn", dirname ($a), basename ($a);
} ¡elsif (¡! $a) {
printf "Sólo en %s: %sn", dirname ($b), basename ($b);
} más {
imprima "el $a de Archivos y el $b differn";
}
});

# Control de la versión como listado Borrado/añadido/modificado
mi (@listing, @modified); # usan el cierre para coleccionar resultados
El archivo:: DirCompare-> se compara (old_tree, new_tree), suscripción {
mi ($a, $b) = _;
¡si (¡! $b) {
empuje @listing, "$a D";
} ¡elsif (¡! $a) {
empuje @listing, "un $b";
} más {
si (-f $a &&-f $b) {
empuje @listing, "M de $b";
empuje @modified, $b;
} más {
# Un archivo, un directorio - el convite como borra + añaden
empuje @listing, "$a D";
empuje @listing, "un $b";
}
}
});

File::DirCompare es un módulo perl para comparar dos directorios usando una rellamada, invocada para todos los archivos que son diferentes entre los dos directorios, y para cualquier archivo que sólo existe en uno u otro directorio (archivos únicos).
File::DirCompare hace un público solo comparar () el método, con la firma siguiente:

El archivo:: DirCompare-> se compara ($dir1, $dir2, $sub, $opts);

Los tres primeros argumentos se requieren - el $dir1 y el $dir2 son pasos a los dos directorios para ser comparados, y el $sub es la referencia de subrutina pidió todos los archivos únicos o diferentes. El $opts es hashref opcional de opciones - ver OPCIONES abajo.

La subrutina proporcionada es llamada para todos los archivos únicos, y para cada par de archivos diferentes encontrados, con la firma siguiente:

$sub->($file1, $file2)

donde el $file1 y el $file2 son los pasos a los dos archivos. Para archivos únicos es decir donde un archivo existe en sólo un directorio, la subrutina es llamada con el otro argumento undef es decir para:

$sub->($file1, undef)
$sub-> (undef, $file2)

el primer indica que el $file1 sólo existe en el primer directorio dado (el $dir1), y el segundo indica que el $file2 sólo existe en el segundo directorio dado (el $dir2).