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);
Page content copyright 2003 by John M. Dlugosz. Home:http://www.dlugosz.com, email:mailto:john@dlugosz.com