Blame examples/writeScalar2.pl
|
Packit |
0bf95d |
#!/usr/bin/perl -w
|
|
Packit |
0bf95d |
use strict;
|
|
Packit |
0bf95d |
use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
|
|
Packit |
0bf95d |
use IO::String;
|
|
Packit |
0bf95d |
use IO::File;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
# test writing to a scalar
|
|
Packit |
0bf95d |
my $zipContents = '';
|
|
Packit |
0bf95d |
my $SH = IO::String->new($zipContents);
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $zip = Archive::Zip->new();
|
|
Packit |
0bf95d |
my $member = $zip->addString('a' x 300, 'bunchOfAs.txt');
|
|
Packit |
0bf95d |
$member->desiredCompressionMethod(COMPRESSION_DEFLATED);
|
|
Packit |
0bf95d |
$member = $zip->addString('b' x 300, 'bunchOfBs.txt');
|
|
Packit |
0bf95d |
$member->desiredCompressionMethod(COMPRESSION_DEFLATED);
|
|
Packit |
0bf95d |
my $status = $zip->writeToFileHandle($SH);
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $file = IO::File->new('test.zip', 'w');
|
|
Packit |
0bf95d |
binmode($file);
|
|
Packit |
0bf95d |
$file->print($zipContents);
|
|
Packit |
0bf95d |
$file->close();
|
|
Packit |
0bf95d |
|