(Perl) Remove a File from a .zip

Demonstrates how to remove a file from a .zip.

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

use chilkat();

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

# First prepare a .zip and write it..
$zip = chilkat::CkZip->new();

$zip->NewZip("qa_output/abc.zip");

# Add some files..
# entry is a ZipEntry
$entry = $zip->AppendString("a.txt","aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa");

# entry is a ZipEntry
$entry = $zip->AppendString("b.txt","bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb");

# entry is a ZipEntry
$entry = $zip->AppendString("c.txt","cccccccccccccccccccccccccccccccccccc");

# Write to qa_output/abc.zip
# This .zip contains three files: a.txt, b.txt, and c.txt
$success = $zip->WriteZipAndClose();

# -------------------------------------------------------------------
# Open abc.zip, remove an entry, and re-write.
$zip2 = chilkat::CkZip->new();
$zip2->OpenZip("qa_output/abc.zip");

# entry is a ZipEntry
$entry = $zip2->GetEntryByName("b.txt");
$zip2->DeleteEntry($entry);

# Write the modified .zip back to "abc.zip"
$success = $zip2->WriteZip();

# To write to a different filename, change the FileName..
$zip2->put_FileName("qa_output/ac.zip");
$success = $zip2->WriteZipAndClose();

print "success." . "\r\n";