Help for this page

Select Code to Download


  1. or download this
    use Archive::Zip;

...
my $zip = Archive::Zip->new();
$zip->read( $InputFileReadable ) == AZ_OK or die "Unable to open Offic
+e file\n";
print my $wfh = $zip->extractMember( 'word/document.xml' );
  2. or download this
    my $zip = Archive::Zip->new();
$zip->read( $InputFile ) == AZ_OK or die "Unable to open Office file\n
+";
my $wfh = $zip->extractMember( 'word/document.xml', "word/document.xml
+" );