Datei :: Dircompare. Datei :: Dircompare ist ein Perl-Modul, um zwei Verzeichnisse mit Callbacks zu vergleichen.
Jetzt downloaden

Datei :: Dircompare. Ranking & Zusammenfassung

Datei :: Dircompare. Stichworte

Perl-Modul Verzeichnisse vergleichen Verzeichnisse vergleichen Perl Rückrufe

Datei :: Dircompare. Beschreibung

Datei :: Dircompare ist ein Perl-Modul, um zwei Verzeichnisse mit Callbacks zu vergleichen. Datei :: Dircompare ist ein Perl-Modul, um zwei Verzeichnisse mit Callbacks zu vergleichen.Synopsis verwenden Datei :: Dircompare; # Einfache diff-r --brief ersetzte Datei :: Basename; Datei :: Dircompare-> Vergleichen ($ DIR1, $ DIR2, SUB {MY ($ A, $ B) = @_; if (! $ B) {printf "nur in% s:% sn", Dirname ($ a ), Basename ($ A);} elsif (! $ a) {printf "nur in% s:% sn", Dirname ($ B), Basename ($ B);} else {drucken "Dateien $ A und $ B unterschiedlich ";}}); # Versions-Steuerung wie gelöschte / hinzugefügte / geänderte Auflistung My (@listing, @modified); # Verschluss zum Sammeln von Ergebnisdatei :: Dircompare-> Vergleichen ('old_tree', 'new_tree'), sub {My ($ A, $ B) = @_; Wenn (! $ B) {Push @listing, "D $ a"; } ELSIF (! $ a) {Push @listing, "A $ B"; } else {if (-f $ a -f $ b) {Push @listing, "M $ B"; Push @modifiziert, $ B; } else {# One-Datei, ein Verzeichnis - So löschen + Push @listing, "D $ A"; Drücken Sie @listing, "A $ B"; }}}); Datei :: Dircompare ist ein Perl-Modul, um zwei Verzeichnisse mit einem Rückruf mit einem Rückruf zu vergleichen, der für alle Dateien aufgerufen wird, die zwischen den beiden Verzeichnissen sind, und für alle Dateien, die nur in einem oder anderen Verzeichnis vorhanden sind 'Dateien) .file :: Dircompare verfügt über eine einzige Public Compare () -Methode mit der folgenden Unterschrift: Datei :: Dircompare-> Vergleichen ($ DIR1, $ Dir2, $ Sub, $ OPTS); Die ersten drei Argumente sind erforderlich - $I1 und $IP2 sind Pfade zu den beiden zu vergleichenden Verzeichnissen, und $ sub ist die Subroutine-Referenz, die für alle einzigartigen oder unterschiedlichen Dateien aufgerufen wird. $ OPTS ist ein optionaler HashRef von Optionen - siehe Optionen unten. Die bereitgestellte Subroutine wird für alle eindeutigen Dateien aufgerufen, und für jedes Paar von 'verschiedenen' auftretenden Dateien mit der folgenden Unterschrift: $ sub -> ($ file1, $ file2) Wo $ file1 und $ file2 die Pfade zu den beiden Dateien sind. Bei 'einzigartigen' Dateien, dh wenn in nur einem Verzeichnis eine Datei vorhanden ist, wird die Subroutine mit dem anderen Argument "undef" aufgerufen, dh für: $ sub -> ($ file1, de undef) $ sub -> (undef, $ file2) das Zeigt an, dass $ File1 nur in dem ersten Verzeichnis angegeben ist ($ Dir1), und der zweite zeigt, dass $ file2 nur im zweiten Verzeichnis angegeben ist ($IR2) .QUIRIERUNGEN: · Perl Anforderungen: · Perl.

Datei :: Dircompare. Zugehörige Software