(Perl) Download File from Dropbox (Streaming)

See more Dropbox Examples

Downloads a file from Dropbox, streaming it directly to a file in the filesystem.

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": "/Homework/lit/hamlet.xml",
# }

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

# Setup a file stream for the download
$fileStream = chilkat::CkStream->new();
$fileStream->put_SinkFile("qa_output/hamletFromDropbox.xml");

# Indicate that the call to FullRequestNoBody should send the response body
# to fileStream if the response status code is 200.
# If a non-success response status code is received, then nothing
# is streamed to the output file and the error response is returned by FullRequestNoBody.
$expectedStatus = 200;
$rest->SetResponseBodyStream($expectedStatus,1,$fileStream);

$responseStr = $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): " . $responseStr . "\r\n";
    print "---" . "\r\n";
    print "LastRequestStartLine: " . $rest->lastRequestStartLine() . "\r\n";
    print "LastRequestHeader: " . $rest->lastRequestHeader() . "\r\n";
    exit;
}

# 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": "hamlet.xml",
#   "path_lower": "/homework/lit/hamlet.xml",
#   "path_display": "/Homework/lit/hamlet.xml",
#   "id": "id:74FkdeNuyKAAAAAAAAAAAQ",
#   "client_modified": "2016-06-02T23:19:00Z",
#   "server_modified": "2016-06-02T23:19:00Z",
#   "rev": "9482db15f",
#   "size": 279658
# }

# 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";