Perl Requires Chilkat v11.0.0+

Get ZIP Directory Information as XML

See more Zip Examples

This example demonstrates how to use the GetDirectoryAsXML method to retrieve information about the contents of a ZIP archive as an XML document.

The returned XML describes the files currently contained in the ZIP object

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Open an existing ZIP archive.
my $zip = Chilkat2::Zip->new;

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

# Get the ZIP directory information as XML.
my $xml = $zip->GetDirectoryAsXML();

print $xml, "\n";

# Suppose the ZIP contains:

# data/config/settings.json
# docs/readme.txt
# images/logo.png

# The XML contains one element for each ZIP entry.
# Example:
#
# <?xml version="1.0" encoding="utf-8"?>
# <zip_contents>
#     <dir name="data">
#         <dir name="config">
#             <file>settings.json</file>
#         </dir>
#     </dir>
#     <dir name="docs">
#         <file>readme.txt</file>
#     </dir>
#     <dir name="images">
#         <file>logo.png</file>
#     </dir>
# </zip_contents>

$zip->CloseZip();

print "Done.\n";