Perl

Remove an Entry from an Existing ZIP Using DeleteEntry

See more Zip Examples

This example demonstrates how to use the DeleteEntry method to remove a file from an existing ZIP archive.

The example:

• Creates a ZIP archive containing three text files
• Opens the ZIP archive for modification
• Finds and deletes one entry
• Writes the modified ZIP archive to a new filename

Suppose the original ZIP archive contains:

a.txt
b.txt
c.txt

After deleting b.txt, the modified ZIP archive contains:

a.txt
c.txt

The entry is removed only from the in-memory ZIP object until a Write* method is called.

Perl

use chilkat();

$success = 0;

$success = 0;

# ------------------------------------------------------------
# First create a ZIP archive containing three text files.

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

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

$charset = "utf-8";

$success = $zip->AddString("a.txt","Contents of file A",$charset);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

$success = $zip->AddString("b.txt","Contents of file B",$charset);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

$success = $zip->AddString("c.txt","Contents of file C",$charset);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Write the ZIP archive to disk.
# 
# The ZIP now contains:
# 
#     a.txt
#     b.txt
#     c.txt
# 
$success = $zip->WriteZipAndClose();
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# ------------------------------------------------------------
# Open the existing ZIP archive for modification.

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

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

# Find the entry named "b.txt".
$entry = chilkat::CkZipEntry->new();

$success = $zip2->EntryOf("b.txt",$entry);
if ($success == 0) {
    print $zip2->lastErrorText() . "\r\n";
    exit;
}

# Remove the entry from the in-memory ZIP object.
# 
# At this point, the original ZIP file on disk is unchanged.
# The deletion takes effect only after WriteZip or
# WriteZipAndClose is called.
$success = $zip2->DeleteEntry($entry);
if ($success == 0) {
    print $zip2->lastErrorText() . "\r\n";
    exit;
}

# Write the modified ZIP archive to a new file.
$zip2->put_FileName("modified.zip");

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

# The modified ZIP now contains:
# 
#     a.txt
#     c.txt
# 

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