Perl

REST Download Binary File to Memory

See more REST Examples

Download a binary file to a Chilkat BinData object. Perl

use chilkat();

$success = 0;

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$rest = chilkat::CkRest->new();

# We're going to download a sample MS-Word doc file.
# The URLs of our MS-Word sample documents are:

# https://www.chilkatdownload.com/sample_data/sample.doc
# https://www.chilkatdownload.com/sample_data/sample.docx

$pathPartOfUrl = "/sample_data/sample.doc";
$domain = "chilkatdownload.com";

$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect($domain,$port,$bTls,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$bd = chilkat::CkBinData->new();
$success = $rest->FullRequestNoBodyBd("GET",$pathPartOfUrl,$bd);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# A 200 response is expected for actual success.
# If we don't get a 200 response, then the response body was not actually
# the file data, but it was text containing error information.
if ($rest->get_ResponseStatusCode() != 200) {
    $sbErrorText = chilkat::CkStringBuilder->new();
    $sbErrorText->AppendBd($bd,"utf-8",0,0);
    print $sbErrorText->getAsString() . "\r\n";
    print "-- Failed." . "\r\n";
    exit;
}

# Save to a local file.
# Change the file path based on your operating system or needs...
$success = $bd->WriteFile("c:/temp/qa_output/sample.doc");
if ($success != 1) {
    print "Failed to save to local file." . "\r\n";
    exit;
}

print "REST Download of MS-Word File was successful." . "\r\n";