List Zip File Contents

Perl script to list the contents of a zip file.

Download Perl Programming Example Scripts

# file: ListZip.pl

use chilkat;

# Simple example showing how to list the files and directories within a Zip archive.
$zip = new chilkat::CkZip();
$zip->UnlockComponent("anything for 30-day trial");

$filename = new chilkat::CkString();

$success = $zip->OpenZip("exampleData.zip");
if ($success)
{
	# Iterate over the files and directories within the Zip, printing the filename
	# and/or directory path of each.
	$entry = $zip->FirstEntry();
	while ($entry != null)
	{
		$entry->get_FileName($filename);
		print $filename->getString() . "\n";
		$entry = $entry->NextEntry();
	}
}
else
{
	# Failed to open the .zip archive.
	$zip->SaveLastError("openZipError.txt");
}