归档和取消归档目录中的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