Perl

Add Binary Data to a ZIP Using AddBd

See more Zip Examples

This example demonstrates how to use the AddBd method to add binary data from a BinData object as a file entry within a ZIP archive.

The data is created entirely in memory, added to the ZIP as data/binary.dat, and then written to disk.

Perl

use chilkat();

$success = 0;

# Create a new ZIP archive.
$zip = chilkat::CkZip->new();

$success = $zip->NewZip("inMemoryData.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Create a BinData object containing binary content.
$bd = chilkat::CkBinData->new();

# Append some bytes as hexadecimal.
# The decoded bytes will become the contents of the ZIP entry.
$success = $bd->AppendEncoded("000102030405060708090A0B0C0D0E0F","hex");
if ($success == 0) {
    print $bd->lastErrorText() . "\r\n";
    exit;
}

# Add the BinData contents as a file entry within the ZIP.
# The file will be stored as "data/binary.dat" inside the ZIP archive.
$success = $zip->AddBd("data/binary.dat",$bd);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Write the ZIP archive to disk and close it.
$success = $zip->WriteZipAndClose();
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

print "ZIP archive created successfully." . "\r\n";