Replace Contents of File within Zip

Perl script to replace the contents of a file contained within a .zip.

Download Perl Programming Example Scripts

# file: ZipReplaceData.pl

use chilkat;

# Open a zip, locate a file contained within it, replace the
# contents of the file, and save the $zip->
$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\	
	
	# Forward and backward slashes are equivalent and either can be used..
	$zipEntry = $zip->FirstMatchingEntry("*/hello.txt");
	if ($zipEntry != null) 
	{
		# Replace the contents of hello.txt with something else.
		$newContent = new chilkat::CkString();
		$newContent->append("Goodbye!");
		$zipEntry->ReplaceData($newContent);
		
		# Save the Zip with the new content.
		$zip->WriteZipAndClose();
	}
	else
	{
		printf("Failed to find hello.txt!\n");
	}
}
else
{
	# Failed to open the .zip archive.
	$zip->SaveLastError("openZipError.txt");
}