Dossier : : DirCompare est un module de Perl pour comparer deux répertoires using des rappels de service.

SYNTHÈSE

dossier d'utilisation : : DirCompare ;

# diff simple - r --bref remontage
dossier d'utilisation : : Nom de base de fichier ;
Dossier : : DirCompare->compare ($dir1, $dir2, sous-marin {
mon ($a, $b) = @_ ;
si (! $b) {
printf « seulement dans %s : %sn », dirname ($a), nom de base de fichier ($a) ;
} elsif (! $a) {
printf « seulement dans %s : %sn », dirname ($b), nom de base de fichier ($b) ;
} autrement {
l'impression « lime $a et $b differn » ;
}
}) ;

# le Version-contrôle comme effacé/a ajouté/liste modifié
mon (@listing, @modified) ; # fermeture d'utilisation pour rassembler des résultats
Dossier : : DirCompare->compare (old_tree, new_tree), sous-marin {
mon ($a, $b) = @_ ;
si (! $b) {
pousser @listing, « D $a » ;
} elsif (! $a) {
pousser @listing, « un $b » ;
} autrement {
si (- && de f $a - f $b) {
pousser @listing, « M $b » ;
pousser @modified, $b ;
} autrement {
# un dossier, un répertoire - traiter comme l'effacement + ajoutent
pousser @listing, « D $a » ;
pousser @listing, « un $b » ;
}
}
}) ;

Dossier : : DirCompare est un module de Perl pour comparer deux répertoires using un rappel de service, invoqué pour tous les dossiers qui sont différents entre les deux répertoires, et pour tous les dossiers qui existent seulement dans un ou tout autre répertoire (seuls dossiers).
Dossier : : DirCompare fait comparer à un public unique () la méthode, à la signature suivante :

Dossier : : DirCompare->compare ($dir1, $dir2, $sub, $opts) ;

Les trois premiers arguments sont exigés - $dir1 et $dir2 sont des circuits aux deux répertoires à comparer, et $sub est la référence de sous-routine demandée tous les seuls ou différents dossiers. $opts est un hashref optionnel des options - voir des OPTIONS ci-dessous.

La sous-routine fournie est demandée pour tous les seuls dossiers, et chaque paire de différents dossiers produits, avec la signature suivante :

$sub-> ($file1, $file2)

là où $file1 et $file2 sont les circuits aux deux dossiers. de seuls dossiers c.-à-d. où un dossier existe dans seulement un répertoire, la sous-routine est demandée avec l'autre undef d'argument c.-à-d. pour :

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

le premier indique $file1 existe seulement dans le premier répertoire donné ($dir1), et la seconde indique que $file2 existe seulement dans le deuxième répertoire donné ($dir2).