Perl

UU Encoding and Decoding

See more Encryption Examples

Demonstrates how to UU encode and decode. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $crypt = Chilkat2::Crypt2->new;

my $s1 = 'This string is to be UU encoded';

$crypt->UuMode('666');
$crypt->UuFilename('something.txt');

# UU encode:
my $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, "\n";

# UU decode:
my $crypt2 = Chilkat2::Crypt2->new;
my $s3 = $crypt2->DecodeString($s2, 'ansi', 'uu');

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

print $s3, "\n";

# Show the file permissions mode and filename found
# in the UU encoded data:
print 'UuMode = ', $crypt2->UuMode, "\n";
print 'UuFilename = ', $crypt2->UuFilename, "\n";