Perl Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

Perl Examples

Quick Start
Perl Unicode
Perl Byte Array
Perl Certs
Perl Email
Perl Encryption
Perl FTP
HTML-to-XML
Perl HTTP
Perl IMAP
Perl MHT
Perl MIME
Perl RSA
Perl S/MIME
Perl Signatures
Perl Socket
Perl Spider
Perl Tar
Perl Upload
Perl XML
Perl XMP
Perl Zip

More Examples...
String
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
SSH Key
SSH
SSH Tunnel
SFTP

Unreleased...
Bzip2
LZW
Bz2
Icon

 

 

 

 

 

 

 

Another Path-in-Zip Example

Another example about getting the correct paths within a .zip.

Download Chilkat Perl Module

use chilkat;

$zip = new chilkat::CkZip();

$success = $zip->UnlockComponent("anything for 30-day trial");
if ($success != 1) {
    print "Failed to unlock zip component" . "\n";
    exit;
}

#  Intialize the zip object by calling NewZip.
$zip->NewZip("myZip.zip");

#  Add references to files:
$recurse = 1;
$zip->AppendFiles("c:\\temp\\a\\subdir1\\*",$recurse);

#  Assuming that the file c:\temp\a\subdir1\dude.gif exists,
#  the .zip will contain "dude.gif" without any path information.

#  The component has no
#  choice but to use "c:\\temp\\a\\subdir1" as the root.
#  It's not possible for the component to know if you
#  wanted subdir1\ or a\subdir1\ or temp\a\subdir1
#  paths prefixed for each file added.

#  To control the path within the zip, set the AppendFromDir
#  directory and then use a relative path in AppendFiles.
#  For example:
$zip->put_AppendFromDir("c:\\temp\\a");

$zip->AppendFiles("subdir1\\*",$recurse);

#  This causes c:\temp\a\subdir1\dude.gif to be added as
#  "subdir1\dude.gif" within the .zip.

#  If you need the path within the .zip to be "a\subdir", then
#  do this:
$zip->put_AppendFromDir("c:\\temp");
$zip->AppendFiles("a\\subdir1\\*",$recurse);

$success = $zip->WriteZipAndClose();
 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2008 Chilkat Software, Inc. All Rights Reserved.