(Perl) Google Cloud Storage List Buckets

See more Google Cloud Storage Examples

Demonstrates how to retrieve a list of buckets for a given project.

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.

# This example uses a previously obtained access token having permission for the 
# scope "https://www.googleapis.com/auth/cloud-platform"

$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/googleCloudStorage.json");
if ($success == 0) {
    print $jsonToken->lastErrorText() . "\r\n";
    exit;
}

$http = chilkat::CkHttp->new();
$http->put_AuthToken($jsonToken->stringOf("access_token"));

# For more info see Cloud Storage Documentation - Buckets: list 
# 
$success = $http->SetUrlVar("PROJECT_ID","chilkattest-1050");
# resp is a HttpResponse
$resp = $http->QuickGetObj("https://www.googleapis.com/storage/v1/b?project={$PROJECT_ID}");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$responseCode = $resp->get_StatusCode();
if ($responseCode == 401) {
    print $resp->bodyStr() . "\r\n";
    print "If invalid credentials, then it is likely the access token expired." . "\r\n";
    print "Your app should automatically fetch a new access token and re-try." . "\r\n";

    exit;
}

print "Response code: " . $responseCode . "\r\n";
print "Response body" . "\r\n";

$json = chilkat::CkJsonObject->new();
$success = $json->Load($resp->bodyStr());

$json->put_EmitCompact(0);

print $json->emit() . "\r\n";

# A response code = 200 indicates success, and the response body contains JSON such as this:

# {
#   "kind": "storage#buckets",
#   "items": [
#     {
#       "kind": "storage#bucket",
#       "id": "chilkat-bucket",
#       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-bucket",
#       "projectNumber": "5332332985",
#       "name": "chilkat-bucket",
#       "timeCreated": "2018-10-23T00:04:44.507Z",
#       "updated": "2018-10-23T00:04:44.507Z",
#       "metageneration": "1",
#       "iamConfiguration": {
#         "bucketPolicyOnly": {
#           "enabled": false
#         }
#       },
#       "location": "US",
#       "storageClass": "MULTI_REGIONAL",
#       "etag": "CAE="
#     },
#     {
#       "kind": "storage#bucket",
#       "id": "chilkat-images",
#       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-images",
#       "projectNumber": "5332332985",
#       "name": "chilkat-images",
#       "timeCreated": "2018-10-23T11:24:43.000Z",
#       "updated": "2018-10-23T11:24:43.000Z",
#       "metageneration": "1",
#       "iamConfiguration": {
#         "bucketPolicyOnly": {
#           "enabled": false
#         }
#       },
#       "location": "US",
#       "storageClass": "MULTI_REGIONAL",
#       "etag": "CAE="
#     }
#   ]
# }

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

$kind = $json->stringOf("kind");
$i = 0;
$count_i = $json->SizeOfArray("items");
while ($i < $count_i) {
    $json->put_I($i);
    $kind = $json->stringOf("items[i].kind");
    $id = $json->stringOf("items[i].id");
    $selfLink = $json->stringOf("items[i].selfLink");
    $projectNumber = $json->stringOf("items[i].projectNumber");
    $name = $json->stringOf("items[i].name");
    $timeCreated = $json->stringOf("items[i].timeCreated");
    $updated = $json->stringOf("items[i].updated");
    $metageneration = $json->stringOf("items[i].metageneration");
    $iamConfigurationBucketPolicyOnlyEnabled = $json->BoolOf("items[i].iamConfiguration.bucketPolicyOnly.enabled");
    $location = $json->stringOf("items[i].location");
    $storageClass = $json->stringOf("items[i].storageClass");
    $etag = $json->stringOf("items[i].etag");
    $i = $i + 1;
}