(Perl) Zip Append StringBuilder

See more Zip Examples

Append the contents of a Chilkat StringBuilder object to a .zip.

Note: This example requires Chilkat v10.0.0 or later.

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

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$zip = chilkat::CkZip->new();
$zipPath = "c:/temp/qa_output/out.zip";

$zip->NewZip($zipPath);

$sb = chilkat::CkStringBuilder->new();
$i = 0;
while ($i < 100) {
    $sb->AppendLine("This is a test",1);
    $i = $i + 1;
}

$zip->AppendSb("this_is_a_test.txt",$sb,"utf-8");

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

print "Success 1." . "\r\n";

# Perhaps you want to add a file to an existing .zip
$zip2 = chilkat::CkZip->new();
# Open the .zip we just wrote..
$success = $zip2->OpenZip($zipPath);

$sb->Clear();
$i = 0;
while ($i < 100) {
    $sb->AppendLine("This is a test 2",1);
    $i = $i + 1;
}

$zip2->AppendSb("this_is_a_test_2.txt",$sb,"utf-8");

$zipPath2 = "c:/temp/qa_output/out2.zip";
$zip2->put_FileName($zipPath2);
$success = $zip2->WriteZipAndClose();
if ($success == 0) {
    print $zip2->lastErrorText() . "\r\n";
    exit;
}

print "Success 2." . "\r\n";