Append to Zip from String Variable

Perl script to append the contents of string variables as files to a .zip.

Download Perl Programming Example Scripts

# file: ZipFromMemory.pl

use chilkat;

# Create a .zip archive from in-memory data.
$zip = new chilkat::CkZip();
$zip->UnlockComponent("anything for 30-day trial");

$zip->NewZip("fromMemory.zip");

$str = "";
for ($i=0; $i < 100; $i++)
	{
	$str = $str . "abcdefghijklmnopqrstuvwxyz\n";
	}
$zip->AppendString("string1.txt",$str);

$str = "";
for ($i=0; $i < 100; $i++)
	{
	$str = $str . "1234567890\n";
	}
	
$zip->AppendString("string2.txt",$str);

# Creates "fromMemory.zip" which contains two files:
# string1.txt and string2.txt
$zip->WriteZipAndClose();