git.maemo.org Git - pkg-perl/blob - deb-src/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/writeScalar2.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
   4 use IO::String;
   5 use IO::File;
   6
   7 # test writing to a scalar
   8 my $zipContents = '';
   9 my $SH = IO::String->new($zipContents);
  10
  11 my $zip = Archive::Zip->new();
  12 my $member = $zip->addString('a' x 300, 'bunchOfAs.txt');
  13 $member->desiredCompressionMethod(COMPRESSION_DEFLATED);
  14 $member = $zip->addString('b' x 300, 'bunchOfBs.txt');
  15 $member->desiredCompressionMethod(COMPRESSION_DEFLATED);
  16 my $status = $zip->writeToFileHandle( $SH );
  17
  18 my $file = IO::File->new('test.zip', 'w');
  19 binmode($file);
  20 $file->print($zipContents);
  21 $file->close();
  22