Perl

StringBuilder Encode

Demonstrates the Chilkat StringBuilder Encode method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $s = 'The quick brown fox jumps over the lazy dog';

my $sb = Chilkat2::StringBuilder->new;

$sb->Append($s);

# output: The quick brown fox jumps over the lazy dog
print $sb->GetAsString(), "\n";

$sb->Encode('base64', 'utf-8');

# output: VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wcyBvdmVyIHRoZSBsYXp5IGRvZw==
print $sb->GetAsString(), "\n";

$sb->Decode('base64', 'utf-8');
# output: The quick brown fox jumps over the lazy dog
print $sb->GetAsString(), "\n";

# Now encode to hex..
$sb->Encode('hex', 'utf-8');
# output: 54686520717569636B2062726F776E20666F78206A756D7073206F76657220746865206C617A7920646F67
print $sb->GetAsString(), "\n";

$sb->Decode('hex', 'utf-8');
# URL encode
$sb->Encode('url', 'utf-8');
print $sb->GetAsString(), "\n";

$sb->Decode('url', 'utf-8');
# base64url
$sb->Encode('base64url', 'utf-8');
print $sb->GetAsString(), "\n";

# other possible encodings include modbase64, base32, base58, quoted-printable, url_rfc1738, url_rfc2396, url_rfc3986, and fingerprint