Perl

Convert any File to Base64 (and back)

Demonstrates how to get the contents of any file as a base64 string, and then write it back. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $bd = Chilkat2::BinData->new;

# This example will load a PDF and return it as a base64 string.
my $success = $bd->LoadFile('qa_data/pdf/helloWorld.pdf');
if (!$success) {
    print "Failed to load file.\n";
    exit;
}

my $b64Str = $bd->GetEncoded('base64');
print $b64Str, "\n";

# Now write the base64 string back to the binary PDF file:
my $bd2 = Chilkat2::BinData->new;
$success = $bd2->AppendEncoded($b64Str, 'base64');
$success = $bd2->WriteFile('qa_output/helloWorld.pdf');