Как заархивировать набор файлов с помощью Perl в Win32, сохранив пути к файлам?

У вас есть конкретный вопрос? Следующий код отлично работает в Win32:

#!/usr/bin/perl

use strict;
use warnings;

use Archive::Zip;
use File::Find;

my $zip = Archive::Zip->new;

find(\&wanted, $ENV{TEMP});

$zip->writeToFileNamed('test.zip');

sub wanted {
    return unless /\.txt$/;
    $zip->addFile($File::Find::name);
}

Запустим:

C:\Temp> arc

C:\Temp> unzip -l test.zip

Archive:  test.zip
  Length     Date   Time    Name
 --------    ----   ----    ----
      240  10-16-09 19:19   /Temp/cpan_install_Wb7z.txt
     2401  10-18-09 23:09   /Temp/perldoc_perlfunc_T4adbd85e_aec9c.txt
     2401  10-18-09 23:09   /Temp/perldoc_perlfunc_T4adbd872_bc437.txt
     2718  10-19-09 10:04   /Temp/perldoc_perlfunc_T4adc71e7_f4c64.txt
     2718  10-19-09 10:04   /Temp/perldoc_perlfunc_T4adc71f2_bf08d.txt
     2718  10-19-09 10:04   /Temp/perldoc_perlfunc_T4adc720a_a5c6a.txt
    29188  10-19-09 10:05   /Temp/perldoc_perlfunc_T4adc7226_bd834.txt
     6949  10-20-09 17:31   /Temp/perldoc_perlfunc_T4ade2c1f_d0cf8.txt
     6949  10-20-09 17:32   /Temp/perldoc_perlfunc_T4ade2c50_f2040.txt
   106763  10-19-09 10:00   /Temp/perldoc_perlop_T4adc7103_f4cab.txt
    67948  10-18-09 23:07   /Temp/perldoc_perlvar_T4adbd7d7_d8cda.txt
 --------                   -------
   230993                   11 files

То же для Archive::Tar.

Обновление. Чтобы развеять сомнения в том, что файлы были добавлены в архив с правильным путем, обратите внимание:

C:\Temp> dir *.txt
 Volume in drive C is ****
 Volume Serial Number is ****-****

 Directory of C:\Temp

2009/10/16  07:19 PM               240 cpan_install_wb7z.txt
2009/10/18  11:09 PM             2,401 perldoc_perlfunc_t4adbd85e_aec9c.txt
2009/10/18  11:09 PM             2,401 perldoc_perlfunc_t4adbd872_bc437.txt
...

Как автор Archive :: Builder, это почти наверняка не то, что вы хотеть.

Он предназначен для создания файлов ZIP в памяти с использованием сочетания содержимого диска и созданного кода, а не для архивирования.

Иногда я слышу ваше разочарование по поводу простых вещей с perl на win32. Если все остальное не помогает, просто запустите версию 7-zip для командной строки, делающую то, что вы хотите, а затем выполните для нее вызов system ().

Я собираюсь ответить на вопросы, поднятые в новой информации, которую вы добавили в сообщение. Я запустил твой сценарий. Вот результаты:

C:\Temp\a> unzip -l test1.zip
Archive:  test1.zip
  Length     Date   Time    Name
 --------    ----   ----    ----
        0  10-21-09 13:03   MyArchiveFiles/file1.txt
 --------                   -------
        0                   1 file

C:\Temp\a\d> unzip ../test1.zip
Archive:  ../test1.zip
 extracting: MyArchiveFiles/file1.txt

C:\Temp\a\d> dir /s
...
 Directory of C:\Temp\a\d

2009/10/21  01:09 PM              MyArchiveFiles

 Directory of C:\Temp\a\d\MyArchiveFiles

2009/10/21  01:03 PM                 0 file1.txt

C:\Temp\a\d> unzip ..\test2.zip
Archive:  ..\test2.zip
 extracting: ALLCAPSNAME/file1.txt

C:\Temp\a\d> dir /s

 Directory of C:\Temp\a\d

2009/10/21  01:11 PM              ALLCAPSNAME
2009/10/21  01:09 PM              MyArchiveFiles

 Directory of C:\Temp\a\d\ALLCAPSNAME

2009/10/21  01:07 PM                 0 file1.txt

C:\Temp\a\d> tar -xvf ..\test3.tar
tar: Record size = 3 blocks
MyArchiveFiles/file1.txt

C:\Temp\a\d> dir /s

2009/10/21  01:13 PM              MyArchiveFiles

 Directory of C:\Temp\a\d\MyArchiveFiles

2009/10/21  01:03 PM                 0 file1.txt

Я убрал часть постороннего вывода от dir, но я надеюсь, что это делает очевидным раз и навсегда, что любые проблемы, с которыми вы сталкиваетесь, не связаны с Windows или Perl, или Archive::Tar или Archive::Zip.

Для записи:

C:\Temp> perl -v

This is perl, v5.10.1 built for MSWin32-x86-multi-thread
(with 2 registered patches, see perl -V for more detail)

Copyright 1987-2009, Larry Wall

Binary build 1006 [291086] provided by ActiveState http://www.ActiveState.com
Built Aug 24 2009 13:48:26

C:\Temp> perl -MArchive::Tar -e "print $Archive::Tar::VERSION"
1.52

C:\Temp> perl -MArchive::Zip -e "print $Archive::Zip::VERSION"
1.30

C:\Temp> tar --version
tar (GNU tar) 1.21

C:\Temp> unzip -v
UnZip 5.52 of 28 February 2005, by Cygwin. Original by Info-ZIP.

Ответом оказалась проблема с WinZip 11. Так что, если вы просматриваете свои файлы Archive :: Zip с помощью WinZip, просто игнорируйте тот факт, что все пути в верхнем регистре заменены на все в нижнем регистре в графическом интерфейсе WinZip, потому что когда если вы его разархивируете, путь будет указан в верхнем регистре, как и предполагалось.

Что касается проблемы Archive :: Tar, заключающейся в том, что в WinZip вообще не отображается какой-либо путь, вам нужно заставить Archive :: Tar отклониться от строгого соответствия POSIX со следующей строкой, и тогда вы увидите пути в WinZip:

$Archive::Tar::DO_NOT_USE_PREFIX = 1;