Dossier:: DirCompare is een module Perl om twee folders te vergelijken die callbacks gebruiken.

SYNOPSIS

gebruiks Dossier:: DirCompare;

# Eenvoudige diff - r --korte vervanging
gebruiks Dossier:: Basename;
Dossier:: DirCompare->compare ($dir1, $dir2, sub {
mijn ($a, $b) = @_;
als (! $b) {
printf „slechts in %s: %sn“, dirname ($a), basename ($a);
} elsif (! $a) {
printf „slechts in %s: %sn“, dirname ($b), basename ($b);
} anders {
druk „Dossiers $a en $b differn“;
}
});

# Versie-controle als Geschrapt/Toegevoegd/Gewijzigde lijst
mijn (@listing, @modified); # gebruikssluiting om resultaten te verzamelen
Dossier:: DirCompare->compare (old_tree, new_tree), sub {
mijn ($a, $b) = @_;
als (! $b) {
duw het @listing, „D $a“;
} elsif (! $a) {
duw het @listing, „$b“;
} anders {
als (- F $a && - F $b) {
duw het @listing, „M $b“;
de duw @modified, $b;
} anders {
# Één dossier, één folder - behandel aangezien de schrapping + toevoegt
duw het @listing, „D $a“;
duw het @listing, „$b“;
}
}
});

Dossier:: DirCompare is een perlmodule om twee folders te vergelijken die die callback gebruiken, voor alle dossiers die tussen de twee folders verschillend zijn wordt aangehaald, en voor om het even welke dossiers die slechts in één of andere folder (unieke dossiers) bestaan.
Dossier:: DirCompare heeft één enkel publiek () methode, met de volgende handtekening vergelijken:

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

De eerste drie argumenten worden vereist - $dir1 en $dir2 zijn wegen aan de twee te vergelijken folders, en $sub is de subroutineverwijzing verzocht alle unieke of verschillende dossiers. $opts is een facultatieve hashref van opties - zie hieronder OPTIES.

De verstrekte subroutine wordt verzocht alle unieke dossiers, en voor elk paar verschillende die dossiers, met de volgende handtekening wordt ontmoet:

$sub-> ($file1, $file2)

waar $file1 en $file2 de wegen aan de twee dossiers zijn. Voor unieke dossiers d.w.z. waar een dossier in slechts één folder bestaat, wordt de subroutine gevraagd met het andere argument undef d.w.z.:

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

de eerste wijst op er $file1 slechts in de eerste gegeven folder bestaat ($dir1), en de tweede wijst op er $file2 slechts in de tweede gegeven folder bestaat ($dir2).