Datei:: DirCompare ist eine Perl-Baugruppe, zum von zwei Verzeichnissen using Rückrufe zu vergleichen.

SYNOPSE

Gebrauch Datei:: DirCompare;

# einfaches diff - r --kurze Abwechslung
Gebrauch Datei:: Basename;
Datei:: DirCompare->compare ($dir1, $dir2, Unterseeboot {
mein ($a, $b) = @_;
wenn (! $b) {
printf „nur in %s: %sn“, dirname ($a), basename ($a);
} elsif (! $a) {
printf „nur in %s: %sn“, dirname ($b), basename ($b);
} sonst {
Druck „archiviert, die $a und $b differn sind“;
}
});

# addierte Version-Steuerung wie gelöscht/,/geänderte Listen
mein (@listing, @modified); # Gebrauchschliessen, zum von Resultaten zu montieren
Datei:: DirCompare->compare (old_tree, new_tree), Unterseeboot {
mein ($a, $b) = @_;
wenn (! $b) {
das @listing drücken, „D $a“;
} elsif (! $a) {
das @listing drücken, „ein $b“;
} sonst {
wenn (- f $a && - f $b) {
das @listing drücken, „M $b“;
drücken @modified, $b;
} sonst {
# eine Datei, ein Verzeichnis - behandeln, wie Löschung + addieren
das @listing drücken, „D $a“;
das @listing drücken, „ein $b“;
}
}
});

Datei:: DirCompare ist eine Perl-Baugruppe, zum von zwei Verzeichnissen using einen Rückruf zu vergleichen, angeführt für alle Dateien, die zwischen den zwei Verzeichnissen unterschiedlich sind, und für alle mögliche Dateien, die nur in einer existieren oder anderes Verzeichnis (einzigartige Dateien).
Datei:: DirCompare läßt eine einzelne Öffentlichkeit () Methode, mit der folgenden Unterzeichnung vergleichen:

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

Die ersten drei Argumente werden benötigt - $dir1 und $dir2 sind Bahnen zu den zwei verglichen zu werden Verzeichnissen, und $sub ist der Unterprogrammaufruf, der alle einzigartigen oder verschiedenen Dateien gefordert wird. $opts ist ein wahlweisehashref von Optionen - OPTIONEN unten sehen.

Die zur Verfügung gestellte Subroutine wird alle einzigartigen Dateien gefordert, und jedes Paar verschiedene angetroffene Dateien, mit der folgenden Unterzeichnung:

$sub-> ($file1, $file2)

wo $file1 und $file2 die Bahnen zu den zwei Dateien sind. Einzigartige Dateien d.h., in denen eine Datei in nur einem Verzeichnis existiert, wird die Subroutine mit dem anderen Argument undef d.h. für gefordert:

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

das erste zeigt an, $file1 nur im ersten gegebenen Verzeichnis ($dir1) existiert und die Sekunde anzeigt, daß $file2 nur im zweiten gegebenen Verzeichnis existiert ($dir2).