UU Encoding and Decoding

Demonstrates how to UU encode and decode.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$crypt = new chilkat::CkCrypt2();

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

$s1 = "This string is to be UU encoded";

$crypt->put_UuMode("666");
$crypt->put_UuFilename("something.txt");

#  UU encode:
$s2 = $crypt->encodeString($s1,"ansi","uu");

#  Note: Call crypt.Encode instead of crypt.EncodeString
#  to UU encode binary bytes (i.e. non-text binary data).

print $s2 . "\r\n";

#  UU decode:
$crypt2 = new chilkat::CkCrypt2();
$s3 = $crypt2->decodeString($s2,"ansi","uu");

#  Note: Likewise, call crypt.Decode to decode non-text binary data.

print $s3 . "\r\n";

#  Show the file permissions mode and filename found
#  in the UU encoded data:
print "UuMode = " . $crypt2->uuMode() . "\r\n";
print "UuFilename = " . $crypt2->uuFilename() . "\r\n";