Perl
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
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";