Perl Requires Chilkat v11.0.0+

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.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $zip = Chilkat2::Zip->new;

my $success = $zip->NewZip('original.zip');
if (!$success) {
    print $zip->LastErrorText, "\n";
    exit;
}

my $charset = 'utf-8';

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

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

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

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

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

my $zip2 = Chilkat2::Zip->new;

$success = $zip2->OpenZip('original.zip');
if (!$success) {
    print $zip2->LastErrorText, "\n";
    exit;
}

# Find the entry named "b.txt".
my $entry = Chilkat2::ZipEntry->new;

$success = $zip2->EntryOf('b.txt', $entry);
if (!$success) {
    print $zip2->LastErrorText, "\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) {
    print $zip2->LastErrorText, "\n";
    exit;
}

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

$success = $zip2->WriteZipAndClose();
if (!$success) {
    print $zip2->LastErrorText, "\n";
    exit;
}

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

print "ZIP archive updated successfully.\n";