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

Unreleased...
Bzip2
LZW
Bz2
Icon

 

 

 

 

 

 

 

Create a .zip, clearing the archive attribute of each file zipped (i.e. Incremental Backup).

How to create a .zip archive such that each file zipped will have it's archive file attribute cleared.

Download Chilkat Perl Module

use chilkat;

$zip = new chilkat::CkZip();

#  Any string unlocks the component for the 1st 30-days.
$success = $zip->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

$success = $zip->NewZip("test.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Tell the component to clear each file's archive attribute
#  when zipping.
$zip->put_ClearArchiveAttribute(1);

#  Append a directory tree.
#  Notice that the archiveOnly flag is set to true.  This
#  means that only files with the "File is ready for archiving" bit
#  set will be included.  (In Windows Explorer, right-click a file
#  and select Properties.  Then click the Advanced button.  You'll
#  see the "File is ready for archiving" checkbox.
#  This becomes automatically checked whenever a file is modified (or created).
#  The AppendFilesEx method will only add files ready for
#  archiving, and the WriteZipAndClose method will clear the
#  archive attribute for each file zipped.  The result is that
#  each time you run this program, only the modified files are zipped.
$recurse = 1;
$archiveOnly = 1;
$includeHidden = 1;
$includeSystem = 1;
$saveExtraPath = 0;
$zip->AppendFilesEx("c:/temp/abc123/*",$recurse,$saveExtraPath,$archiveOnly,$includeHidden,$includeSystem);

$success = $zip->WriteZipAndClose();
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

print "Zip Created!" . "\n";
 

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

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