Perl Google Drive: Download a File (Stream to the Filesystem)

Back to Index

Downloads the content of a file by ID. (In this example the file id = 1R_70heIyzIAu1_u0prXbYcaIiJRVkgBl) The file is streamed directly to the filesystem. Note: The alt=media query param must be used to download the file content (as opposed to the file metadata).

Documentation: https://developers.google.com/drive/v3/reference/files/get

use chilkat();

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

#   Provide a previously obtained OAuth2 access token.
$oauth2 = chilkat::CkOAuth2->new();
$oauth2->put_AccessToken("OAUTH2_ACCESS_TOKEN");
$rest->SetAuthOAuth2($oauth2);

$success = $rest->Connect("www.googleapis.com",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->AddQueryParam("includeTeamDriveItems","true");
$rest->AddQueryParam("supportsTeamDrives","true");
$rest->AddQueryParam("alt","media");

#  First send the HTTP request.
$success = $rest->SendReqNoBody("GET","/drive/v3/files/1R_70heIyzIAu1_u0prXbYcaIiJRVkgBl");
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

#  Read the response header.  If the response status code is success, stream to the file.
#  Otherwise receive the error response text.
$statusCode = $rest->ReadResponseHeader();
if ($statusCode < 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

if ($statusCode != 200) {
    print "Received error response code: " . $statusCode . "\r\n";
    #  Read the error response body.
    $sbErrResponse = chilkat::CkStringBuilder->new();
    $success = $rest->ReadRespSb($sbErrResponse);
    if ($success != 1) {
        print $rest->lastErrorText() . "\r\n";
        exit;
    }

    print "Error response:" . $sbErrResponse->getAsString() . "\r\n";
    exit;
}

#  Stream the response body to the output file.
$respBodyStream = chilkat::CkStream->new();
$respBodyStream->put_SinkFile("/someDirectory/penguins.jpg");
$success = $rest->ReadRespBodyStream($respBodyStream,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print "Example Completed." . "\r\n";