Perl

PDF File Encoding to Base64

See more Base64 Examples

Demonstrates how to encode a PDF file to base64, and then decode. Perl

use chilkat();

$success = 0;

$pdfData = chilkat::CkBinData->new();

$success = $pdfData->LoadFile("qa_data/helloWorld.pdf");
if ($success != 1) {
    print "failed to load PDF file." . "\r\n";
    exit;
}

# Encode the PDF to base64
# Note: to produce base64 on multiple lines (as it would appear in the MIME of an email),
# pass the string "base64_mime" instead of "base64".
$b64 = $pdfData->getEncoded("base64");
print $b64 . "\r\n";

# Decode from base64 PDF.
$pdfData2 = chilkat::CkBinData->new();
$pdfData2->AppendEncoded($b64,"base64");
$success = $pdfData2->WriteFile("qa_output/helloWorld2.pdf");
if ($success != 1) {
    print "failed to write PDF file." . "\r\n";
    exit;
}