(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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

$zip = chilkat::CkZip->new();

# Open an existing ZIP archive.
$success = $zip->OpenZip("qa_data/zips/documents.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Locate the PDF entry within the ZIP archive.
$entry = chilkat::CkZipEntry->new();

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

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

$success = $entry->UnzipToBd($pdfData);
if ($success == 0) {
    print $entry->lastErrorText() . "\r\n";
    exit;
}

print "Uncompressed size = " . $pdfData->get_NumBytes() . "\r\n";
print "" . "\r\n";

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

$zip->CloseZip();

print "PDF extracted successfully." . "\r\n";