(Perl) Extract and Save PDF from SOAP XML

Demonstrates how to extract and save PDF file that is embedded in SOAP XML (or any XML).

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$xml = chilkat::CkXml->new();

$success = $xml->LoadXmlFile("qa_data/soap/soapWithPdf.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

# The XML we loaded looks like this:

# <?xml version="1.0" encoding="utf-8" ?>
# <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
#     <s:Body>
#         <ObtenerPDFResponse xmlns="http://xyz.org/">
#             <ObtenerPDFResult xmlns:a="http://schemas.xyz.org/something" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#                 <a:CBB i:nil="true" />
#                 <a:CodigoConfirmacion i:nil="true" />
#                 <a:ErrorDetallado />
#                 <a:ErrorGeneral i:nil="true" />
#                 <a:FechaGenerada i:nil="true" />
#                 <a:FolioGenerado i:nil="true" />
#                 <a:OperacionExitosa>true</a:OperacionExitosa>
#                 <a:PDF>JVBERi0xLjQKJe...</a:PDF>
#                 <a:XML i:nil="true" />
#             </ObtenerPDFResult>
#         </ObtenerPDFResponse>
#     </s:Body>
# </s:Envelope>

# pdfElement is a Xml
$pdfElement = $xml->FindChild("s:Body|ObtenerPDFResponse|ObtenerPDFResult|a:PDF");
if ($xml->get_LastMethodSuccess() != 1) {
    print "Did not find the PDF element at the expected location." . "\r\n";
    exit;
}

$success = $pdfElement->SaveBinaryContent("qa_output/out.pdf",0,0,"");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

print "Successfully extracted and saved the PDF." . "\r\n";