Perl

Decode Base64 Image String (GIF, JPG, etc.) and Save to File

I have an XML response that includes a base 64 encoded image string (UPS label). It's a huge string and I need to save it as a gif file on my users pc.

This example shows how to do it..

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# I created an extra-small GIF image for this example..
my $success = $bd->LoadFile('qa_data/gif/xsmall.gif');
if (!$success) {
    print "Failed to load GIF image file.\n";
    exit;
}

# Show GIF bytes as base64:
print $bd->GetEncoded('base64'), "\n";

# This particular GIF in base64 is this:
# R0lGODlhBQAFAMQAAAAAAP////z8/PHx8evr6+jo6OHh4d7e3sPDw8LCwpqamo2NjWxsbGRkZFpaWk1NTUtLS0hISCwsLCQkJP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAABQALAAAAAAFAAUAAAUTYCAYQUBAU1lI0TIgztE8jFImIQA7

# Let's begin with an XML string:
my $x = '<abc><def>R0lGODlhBQAFAMQAAAAAAP////z8/PHx8evr6+jo6OHh4d7e3sPDw8LCwpqamo2NjWxsbGRkZFpaWk1NTUtLS0hISCwsLCQkJP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAABQALAAAAAAFAAUAAAUTYCAYQUBAU1lI0TIgztE8jFImIQA7</def></abc>';

my $xml = Chilkat2::Xml->new;
$success = $xml->LoadXml($x);

# Get the base64 string:
my $gifBase64 = $xml->GetChildContent('def');

print $gifBase64, "\n";

# Load bd with the base64 decoded bytes.
$bd->Clear();
$bd->AppendEncoded($gifBase64, 'base64');

# Save to a GIF file.
$success = $bd->WriteFile('qa_output/xsmall.gif');