Perl

Extract PDF from JSON

See more JSON Examples

Demonstrates how to extract a PDF file contained within JSON. The file is represented as a base64 string within the JSON. Note: This example can extract any type of file, not just a PDF file. Perl

use chilkat();

$success = 0;

$json = chilkat::CkJsonObject->new();

# Load the JSON.
$success = $json->LoadFile("qa_data/json/JSR5U.json");
if ($success != 1) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

# The JSON we loaded contains this:

# 	{
# 	...
# 	...
# 	  "data": {
# 	    "content": "JVBERi0xLjQ..."
# 	  }
# 	...
# 	...
# 	}

$sb = chilkat::CkStringBuilder->new();
$json->StringOfSb("data.content",$sb);

$bd = chilkat::CkBinData->new();
$bd->AppendEncodedSb($sb,"base64");

$success = $bd->WriteFile("qa_output/a0015.pdf");