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

 

 

 

 

 

 

 

String Compression

Perl example to compress and decompress a string. This example demonstrates string-to-string compression. It is only worth doing if the input string is long enough and compresses well enough. The output of any compression algorithm is binary. To convert binary data to a printable string, some sort of encoding must be applied -- and this alway expands the size. For example, hex encoding produces a string that is 2 character for each byte (i.e. it doubles the size). Base64 encoding is a better choice because the output is 4 characters for every 3 bytes encoded.

Download Chilkat Perl Module

use chilkat;


#  The Crypt component has the BZip2 compression
#  and decompression features, combined with encoding/decoding,
#  that is required for string-to-string compression.
$crypt = new chilkat::CkCrypt2();

#  Any string argument automatically begins the 30-day trial.
$success = $crypt->UnlockComponent("30-day trial");
if ($success != 1) {
    print "Crypt component unlock failed" . "\n";
    exit;
}

$s = "A friend called me up the other day and talked about investing in a dot-com";
$s = $s . " that sells lobsters. Internet lobsters. Where will this end? --Donald Trump";

#  Make this string a bit bigger...
$s = $s + $s;
$s = $s + $s;
$s = $s + $s;

$crypt->put_CryptAlgorithm("none");
$crypt->put_EncodingMode("base64");

$compressed = $crypt->compressStringENC($s);

print $compressed . "\r\n";

$decompressed = $crypt->inflateStringENC($compressed);

print $decompressed . "\r\n";


 

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

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