Perl

Unzip a ZIP Entry Directly into a BinData Object Using ZipEntry.UnzipToBd

See more Zip Examples

This example demonstrates how to use the ZipEntry.UnzipToBd method to inflate a ZIP entry directly into a BinData object.

The entry contents are uncompressed entirely in memory without creating a file on disk.

This is useful when:

• Processing ZIP entry data entirely in memory
• Avoiding temporary filesystem files
• Working with binary files such as images, PDFs, or certificates
• Passing uncompressed ZIP data directly to other APIs

The example opens a ZIP archive, locates a PDF entry, inflates it into a BinData object, and then writes the uncompressed bytes to a new file.

Suppose the ZIP archive contains:

docs/report.pdf

The entry is uncompressed directly into memory before optionally being saved to:

qa_output/report.pdf

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $zip = Chilkat2::Zip->new;

# Open an existing ZIP archive.
my $success = $zip->OpenZip('qa_data/zips/documents.zip');
if (!$success) {
    print $zip->LastErrorText, "\n";
    exit;
}

# Locate the PDF entry within the ZIP archive.
my $entry = Chilkat2::ZipEntry->new;

$success = $zip->EntryOf('docs/report.pdf', $entry);
if (!$success) {
    print "ZIP entry not found.\n";
    $zip->CloseZip();
    exit;
}

# ------------------------------------------------------------
# Inflate the ZIP entry directly into a BinData object.
#
# The uncompressed bytes are stored entirely in memory.
#
my $pdfData = Chilkat2::BinData->new;

$success = $entry->UnzipToBd($pdfData);
if (!$success) {
    print $entry->LastErrorText, "\n";
    exit;
}

print 'Uncompressed size = ', $pdfData->NumBytes, "\n";
print "\n";

# ------------------------------------------------------------
# Optionally save the uncompressed bytes to a file.
#
$success = $pdfData->WriteFile('qa_output/report.pdf');
if (!$success) {
    print $pdfData->LastErrorText, "\n";
    exit;
}

$zip->CloseZip();

print "PDF extracted successfully.\n";