| Net :: Mirrordir. Net :: Mirordir é uma extensão Perl para comparar diretórios locais e diretórios remotos uns com os outros. |
Baixe Agora |
Net :: Mirrordir. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Torsten Knorr
- Site do editor:
- http://search.cpan.org/~knorr/
Net :: Mirrordir. Tag
Net :: Mirrordir. Descrição
Net :: Mirrordir é uma extensão Perl para comparar diretórios locais e diretórios remotos uns com os outros. Net :: Mirrordir é uma extensão perl para comparar diretórios locais e diretórios remotos uns com os outros.Synopsis Use Net :: Mirraldir; Meu $ MD = Net :: Mirrordir-> Novo (ftpserver => "my_ftp.hostname.com", usr => "my_ftp_usr_name", pass => "my_ftp_password",); ou mais detalhado my $ MD = Net :: Mirrordir-> NOVO (ftpserver => "my_ftp.hostname.com", usr => "my_ftp_usr_name", pass => "my_ftp_password", localdir => "home / homea / homea" , RemoTedir => "Public", Debug => 1 # 1 para Sim, 0 para nenhum tempo limite => 60 # padrão 30 DELETE => "Ativar" # padrão "desativado" Conexão => $ ftp_Object, # padrão Indef Exclusões => $ Ftp_Object ,); $ md-> setlocaldir ("nome / nome / homepage"); Imprimir ("HostName:", $ md-> get_ftpserver (), "n"); $ md-> conectar (); MEU ($ REF_H_LOCAL_FILES, $ REF_H_LOCAL_DIRS) = $ md-> readlocaldir (); se ($ md -> {_ debug}) {print ("arquivos locais: $ _n") para (teclas de classificação% {$ ref_h_local_files}); Imprimir ("Locais Dirs: $ _n") para (Teclas de classificação% {$ ref_h_local_dirs}); } Meu ($ Ref_Remote_Files, $ Ref_Remote_dirs) = $ md-> readremotedir (); if ($ md -> {_ debug}) {imprimir ("Arquivos remotos: $ _n") para (teclas de classificação% {$ ref_h_remote_files}); Imprimir ("Dirs Remotos: $ _N") para (Teclas de classificação% {$ ref_h_remote_dirs}); } Meu $ REF_A_NEW_LOCAL_FILES = $ md-> localnotinremate ($ Ref_H_Local_Files, $ Ref_Remote_Files); if ($ md -> {_ debug}) {imprimir ("Novos arquivos locais: $ _n") para (@ {$ ref_new_local_files}); } Meu $ REF_A_NEW_LOCAL_DIRS = $ md-> localnotinremate ($ REF_H_LOCAL_DIRS, $ REF_H_REMOTE_DIRS); if ($ md -> {_ debug}) {print ("New local dirs: $ _n") para (@ {$ REF_A_NEW_LOCAL_DIRS}); } Meu $ Ref_New_Remote_Files = $ md-> remotenotinlocal ($ REF_H_LOCAL_FILES, $ REF_H_REMOTE_FILES); se ($ md -> {_ debug}) {imprimir ("novos arquivos remotos: $ _n") para (@ {$ ref_ne_new_remote_files}); } Meu $ Ref_New_Remote_dirs = $ md-> remotenotinlocal ($ REF_H_LOCAL_DIRS, $ ref_h_remote_dirs); se ($ md -> {_ debug}) {print ("Novo remoto dirs: $ _n") para (@ {$ ref_new_remote_dirs}); } $ md-> Quit (); este módulo é escrito como classe base para net :: uploadmirror e net :: downloadmirror. HOWEVR, pode ser usado também para algo outro. Pode comparar diretórios locais e diretórios remotos uns com os outros. A fim de encontrar quais arquivos onde em que o diretório disponível. Requisitos: · Perl.
Net :: Mirrordir. Software Relacionado