Unzip Newer

Perl script to unzip files that are newer than those that already exist, or files that do not yet exist on the filesystem.

Download Perl Programming Example Scripts

# file: UnzipNewer.pl

use chilkat;

# Unzip files that have a more recent last-modified date/timestamp
# than the corresponding file on disk.
$zip = new chilkat::CkZip();
$zip->UnlockComponent("anything for 30-day trial");

$success = $zip->OpenZip("exampleData.zip");
if ($success)
{
	# Returns -1 if error, otherwise returns the number of files unzipped.
	
	# In this example, UnzipNewer will create the directory "unzipDir" in the current
	# working directory (if it does not already exist) and unzip into it.
	$numUnzipped = $zip->UnzipNewer("unzipDir");
	printf("numUnzipped = %d\n",$numUnzipped);
}
else
{
	# Failed to open the .zip archive.
	$zip->SaveLastError("openZipError.txt");
}