Unzip

Perl script to unzip a .zip archive into a subdirectory, recreating the tree recursively as it goes.

Download Perl Programming Example Scripts

# file: Unzip.rb

use chilkat;

# Simple example showing how to unzip a .zip file.
$zip = new chilkat::CkZip();
$zip->UnlockComponent("anything for 30-day trial");

$success = $zip->OpenZip("exampleData.zip");
if ($success)
{
	# The zip in this example contains these files and directories:
	# exampleData\
	# exampleData\hamlet.xml
	# exampleData\123\
	# exampleData\aaa\
	# exampleData\123\hello.txt
	# exampleData\aaa\banner.gif
	# exampleData\aaa\dude.gif
	# exampleData\aaa\xyz\	
	
	# Returns -1 if error, otherwise returns the number of files and directories
	# unzipped.
	# In this example, Unzip will create the directory "unzipDir" in the current
	# working directory (if it does not already exist) and unzip into it.
	$numUnzipped = $zip->Unzip("unzipDir");
	printf("numUnzipped = %d\n",$numUnzipped);
}
else
{
	# Failed to open the .zip archive.
	$zip->SaveLastError("openZipError.txt");
}