#!/usr/bin/perl use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); my $zip = Archive::Zip->new(); my $member = $zip->addDirectory('test/'); $member = $zip->addFile('test/straße.txt'); $member->desiredCompressionMethod(COMPRESSION_DEFLATED); die 'write error' unless $zip->writeToFileNamed('someZip.zip') == AZ_O +K;
In reply to Re: Archive::Zip and german charset
by borisz
in thread Archive::Zip and german charset
by walto
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |