Archivo :: DirCompare Archivo :: DirCompare es un módulo PERL para comparar dos directorios utilizando devoluciones de llamada.
Descargar ahora

Archivo :: DirCompare Clasificación y resumen

Archivo :: DirCompare Etiquetas

Módulo perl directorios comparar comparar directorios Devoluciones de llamada perl

Archivo :: DirCompare Descripción

Archivo :: DirCompare es un módulo PERL para comparar dos directorios utilizando devoluciones de llamada. Archivo :: DIRCCPARE es un módulo PERL para comparar dos directorios usando CallBacks.Synopsis Use el archivo :: DIRCOMPARE; # Simple DIFT -R - Suplicar el archivo de uso :: Basename; Archivo :: DirCompare-> Comparar ($ DIR1, $ DIR2, Sub {My ($ A, $ b) = @_; si (! $ B) {printf "solo en% s:% sn", dirname ($ a ), nombre de basen nombre ($ a);} Elsif (! $ a) {printf "solo en% s:% sn", dirname ($ b), basename ($ b);} else {imprimir "archivos $ a y $ b differn ";}}); # Control de versiones como eliminado / agregado / modificado listando MI (@Listing, @modified); # Use el cierre para recopilar el archivo de resultados :: DIRCOMPARE-> Comparar ('Old_Tree', 'New_Tree'), SUB {MY ($ A, $ B) = @__; Si (! $ b) {Push @Listing, "D $ A"; } Elsif (! $ a) {Push @Listing, "A $ B"; } else {if (-f $ a -f $ b) {Push @Listing, "M $ B"; Push @modificado, $ b; } else {# One File, One Directory - Trate como Eliminar + Agregar Push @Listing, "D $ A"; Push @Listing, "A $ B"; }}}); DIRECCPARE es un módulo Perl para comparar dos directorios utilizando una devolución de llamada, invocada para todos los archivos que son "diferentes" entre los dos directorios, y para cualquier archivo que existan solo en uno u otro directorio ('único 'Archivos) .File :: DIRCCPARE tiene un solo método de comparación pública (), con la siguiente firma: Archivo :: DirCompare-> Comparar ($ DIR1, $ DIR2, $ Sub, $ opts); Los primeros tres argumentos son necesarios - $ DIR1 y $ DIR2 son caminos a los dos directorios para ser comparados, y $ Sub es la referencia de subrutina que se requieren todos los archivos únicos o diferentes. $ opts es una hashref de opciones opcional: consulte las opciones a continuación. La subrutina proporcionada se llama a todos los archivos únicos, y para cada par de archivos 'diferentes' encontrados, con la siguiente firma: $ sub -> ($ file1, $ file2) donde $ file1 y $ file2 son las rutas a los dos archivos. Para los archivos 'únicos', es decir, donde existe un archivo en un solo directorio, la subrutina se llama con el otro argumento 'UNDEF' IE para: $ Sub -> ($ File1, UNDEF) $ Sub -> (UNDEF, $ FILE2) Primero indica que $ File1 existe solo en el primer directorio dado ($ DIR1), y el segundo indica que $ File2 existe solo en el segundo directorio dado ($ DIR2). Requisitos: · Requisitos de Perl: · Perl

Archivo :: DirCompare Software relacionado