Архивные и разархивированные каталоги в Perl на Windows 2003

Question

На сервере Windows A есть два диска A: (сопоставленная файловая система) G: (Локальный диск)

Я хочу взять обратно каталог (и его подкаталоги), скажем, «резервное копирование» с диска G на диск A: диск с использованием perl и архивирования, а затем разархивировать и не нарушать структуру папок в папке Backup.

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 )

См.