ZIP2 Library Code Samples

Header Examples

use warnings;
use strict;
use Compress::ZIP2::non_chunk_header;

# This generates Header Example 1
my $x= new Compress::ZIP2::non_chunk_header;
$x->ENDX_Offset (2000000);
$x->TOCN_Offset (200);
open my $outfile, ">out1.xxx" or die;
$x->emit ($outfile);

# This generates Header Example 2
$x=  new Compress::ZIP2::non_chunk_header ("");  # empty Usage Text
open $outfile, ">out2.xxx" or die;
$x->emit ($outfile);

Valid HTML 4.01!

Page content copyright 2003 by John M. Dlugosz. Home:http://www.dlugosz.com, email:mailto:john@dlugosz.com