Arquivo :: dircompare. Arquivo :: DirCompare é um módulo Perl para comparar dois diretórios usando rendocos.
Baixe Agora

Arquivo :: dircompare. Classificação e resumo

Arquivo :: dircompare. Tag

Módulo Perl. diretórios comparar comparar diretórios PERL DE RECLACTOS

Arquivo :: dircompare. Descrição

Arquivo :: DirCompare é um módulo Perl para comparar dois diretórios usando callbacks. Arquivo :: DirCompare é um módulo Perl para comparar dois diretórios usando Callbacks.synopsis usar arquivo :: dircompare; # Simples Diff -R - File Uso de Substituição :: Basename; Arquivo :: DirCompare-> Compare ($ dir1, $ dir2, sub {my ($ A, $ b) = @_; se (! $ B) {printf "apenas em% s:% sn", dirname ($ a ), basename ($ a);} elsif (! $ a) {printf "apenas em% s:% sn", dirName ($ b), basename ($ b);} else {imprimir "arquivos $ a e $ b differn ";}}); # Controle de versão como excluído / adicionado / modificado listando meu (@Listing, @Modified); # Use o fechamento para coletar arquivos de resultados :: DirCompare-> Comparar ('Old_tree', 'New_tree'), Sub {My ($ A, $ B) = @_; if (! $ b) {push @listing, "D $ A"; } elsif (! $ a) {push @listing, "A $ B"; } else {if (-f $ a -f $ b) {push @listing, "M $ B"; empurrar @Modified, $ b; } else {# um arquivo, um diretório - tratar como excluir + adicionar push @listing, "D $ A"; empurre @listing, "A $ B"; }}}); Arquivo :: dircompare é um módulo Perl para comparar dois diretórios usando um retorno de chamada, invocado para todos os arquivos que são 'diferentes' entre os dois diretórios e para quaisquer arquivos que existam apenas em um ou outro diretório («único 'Arquivos) .file :: DirCompare tem um único método de comparação pública (), com a seguinte assinatura: arquivo :: dircompare-> comparar ($ dir1, $ dir2, $ subts); os três primeiros argumentos são necessários - $ Dir1 e $ Dir2 são caminhos para os dois diretórios a serem comparados, e $ sub é a referência sub-rotina chamada para todos os arquivos únicos ou diferentes. $ opts é uma hashref opcional de opções - veja as opções abaixo. O sub-rotina fornecido é chamado de todos os arquivos exclusivos, e para cada par de arquivos 'diferentes' encontrados, com a seguinte assinatura: $ sub -> ($ file1, $ file2) onde $ file1 e $ file2 são os caminhos para os dois arquivos. Para arquivos 'exclusivos', ou seja, onde um arquivo existe em apenas um diretório, a sub-rotina é chamada com o outro argumento 'UNDEF' oue para: $ sub -> ($ file1, undef) $ sub -> (Redef, $ file2) o Primeiro indica $ file1 existe apenas no primeiro diretório fornecido ($ dir1), e o segundo indica $ file2 existe apenas no segundo diretório dado ($ dir2) .Requirements: · Requisitos de Perl: · Perl.

Arquivo :: dircompare. Software Relacionado