examples/readScalar.pl

   1 #!/usr/bin/perl -w
   2 # Demonstrates reading a zip from an IO::Scalar
   3 # $Revision: 1.4 $
   4 use strict;
   5 use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
   6 use IO::Scalar;
   7 use IO::File;
   8
   9 # test reading from a scalar
  10 my $file = IO::File->new('testin.zip', 'r');
  11 my $zipContents;
  12 binmode($file);
  13 $file->read($zipContents, 20000);
  14 $file->close();
  15 printf "Read %d bytes\n", length($zipContents);
  16
  17 my $SH = IO::Scalar->new(\$zipContents);
  18
  19 my $zip = Archive::Zip->new();
  20 $zip->readFromFileHandle( $SH );
  21 my $member = $zip->addString('c' x 300, 'bunchOfCs.txt');
  22 $member->desiredCompressionMethod(COMPRESSION_DEFLATED);
  23 $member = $zip->addString('d' x 300, 'bunchOfDs.txt');
  24 $member->desiredCompressionMethod(COMPRESSION_DEFLATED);
  25
  26 $zip->writeToFileNamed('test2.zip');