Perl

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

Perl

use chilkat();

$success = 0;

$success = 0;

# Open an existing ZIP archive.
$zip = chilkat::CkZip->new();

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

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

print $xml . "\r\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." . "\r\n";