I wrote a little perl script to zip some textfiles on a windows box, send the archive 
via NET::FTP to a unix
box and decrompress the archive there.
On windows (NT)  I can decrompress the archive with WinZip but on unix (SuSe 8.2 and 
Solaris 7)
when running unzip I get the following error message:

mich: unzip Container.zip
Archive:  Container.zip
  End-of-central-directory signature not found.  Either this file is not
  a zipfile, or it constitutes one disk of a multi-part archive.  In the
  latter case the central directory and zipfile comment will be found on
  the last disk(s) of this archive.
unzip:  cannot find zipfile directory in one of Container.zip or
        Container.zip.zip, and cannot find Container.zip.ZIP, period.

the file command on Linux:
mich: file Container.zip
Container.zip: Zip archive data, at least v2.0 to extract


here are the relevant parts of my program:

--------------------------------

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
.....

foreach $box (@boxes) {
    print "$box\n";
   ...
    $member = $zip->addFile( "document.$box");
}

$status = $zip->writeToFileNamed( "Container.zip" );
&werror("040 Error while trying to zip\n    $!\n", "2") if $status != AZ_OK;

--------------------------------------

instead of addFile command in foreach loop I also tried

$zip->addTreeMatching( '.', 'dir/*', 'document\.' );

after foreach loop with the same effect.

I hope somone  can help me.

Thanks in advance

Michael





--
+-- Michael Meltzer -------------+-----------------------------------------+
|   AED-SICAD Aktiengesellschaft |   EMail : [EMAIL PROTECTED]  |
|   Lilienthal-Str. 7            |   Phone : +49-89-45026-108              |
|   85579 Neubiberg              |   Fax   : +49-89-45026-113              |
+--------------------------------+-----------------------------------------+
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to