(Perl) Download File from Dropbox into a String Variable

Demonstrates how to download a file from Dropbox directly into a string variable.

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

use chilkat();

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

# A Dropbox access token should have been previously obtained.
# Dropbox access tokens do not expire.
# See Dropbox Access Token.

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

# Connect to Dropbox
$success = $rest->Connect("content.dropboxapi.com",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Add request headers.
$rest->AddHeader("Authorization","Bearer DROPBOX_ACCESS_TOKEN");

# The download "parameters" are contained in JSON passed in an HTTP request header.
# This is the JSON indicating the file to be downloaded:
# { 
#    "path": "/jack.txt",
# }

$json = chilkat::CkJsonObject->new();
$json->AppendString("path","/jack.txt");
$rest->AddHeader("Dropbox-API-Arg",$json->emit());

# The content of the file on Dropbox is returned.
$fileContent = $rest->fullRequestNoBody("POST","/2/files/download");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# When successful, Dropbox responds with a 200 response code.
if ($rest->get_ResponseStatusCode() != 200) {
    # Examine the request/response to see what happened.
    print "response status code = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "response status text = " . $rest->responseStatusText() . "\r\n";
    print "response header: " . $rest->responseHeader() . "\r\n";
    print "response body (if any): " . $fileContent . "\r\n";
    print "---" . "\r\n";
    print "LastRequestStartLine: " . $rest->lastRequestStartLine() . "\r\n";
    print "LastRequestHeader: " . $rest->lastRequestHeader() . "\r\n";
    exit;
}

# Show the file content that was downloaded:
print $fileContent . "\r\n";
print "----" . "\r\n";

# Information about the downloaded file is also available as JSON in a response header.
# The "dropbox-api-result" response header contains the information.  For example:
$apiResult = $rest->responseHdrByName("dropbox-api-result");
print $apiResult . "\r\n";

# In this case, the pretty-formatted dropbox-api-result JSON looks like this:
# { 
#   "name": "jack.txt",
#   "path_lower": "/jack.txt",
#   "path_display": "/jack.txt",
#   "id": "id:yqx4-tE_NKAAAAAAAAAAAQ",
#   "client_modified": "2016-06-02T20:42:11Z",
#   "server_modified": "2016-06-02T20:42:11Z",
#   "rev": "8482db15f",
#   "size": 42
# }

# Load the JSON, pretty-print it, and demonstrate how to get some values...
$jsonResult = chilkat::CkJsonObject->new();
$jsonResult->put_EmitCompact(0);
$jsonResult->Load($apiResult);
# Show the JSON pretty-printed...
print $jsonResult->emit() . "\r\n";

# Sample code to get data from the JSON response:
$size = $jsonResult->IntOf("size");
print "size = " . $size . "\r\n";

$rev = $jsonResult->stringOf("rev");
print "rev = " . $rev . "\r\n";

$clientModified = $jsonResult->stringOf("client_modified");
$ckdt = chilkat::CkDateTime->new();
$ckdt->SetFromTimestamp($clientModified);
$bLocalTime = 1;
# dt is a DtObj
$dt = $ckdt->GetDtObj($bLocalTime);
print $dt->get_Day() . "/" . $dt->get_Month() . "/" . $dt->get_Year() . " " . $dt->get_Hour() . ":"
     . $dt->get_Minute() . "\r\n";