歸檔和取消歸檔目錄中的Perl在Windows 2003

Question

有在Windows服務器的雙驅動器：（映射文件系統）G：（本地驅動器）

我想借此目錄的背面（&子目錄中的話）從G驅動器向A：驅動器使用perl和歸檔，然後取消歸檔並且不影響備份文件夾中的文件夾結構。

Answer 1

我可以File::Find和Archive::Zip佈局的基本思路：

use Archive::Zip qw(:ERROR_CODES :CONSTANTS); 
use File::Find qw<find>; 

my $zip = Archive::Zip->new(); 
find sub { $zip->addFile($File::Find::name); } => $my_directory; 
$zip->writeToFileNamed($my_zip_file_name); 

提取可以是簡單的：

$zip->extractTree($root_in_zipfile, $external_destination) 

See