(Perl) UU Encoding and Decoding

Demonstrates how to UU encode and decode.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$crypt = chilkat::CkCrypt2->new();

$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 = chilkat::CkCrypt2->new();
$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";