存档＆amp; Windows 2003上Perl中的unarchive目录

Question

Windows服务器A上有两个驱动器:(映射文件系统）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