(Perl) Google Sheets - Read a Single Range

Reads the values stored in the range Sheet1!A1:B5 and returns them in the response.

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
#  Google Sheets scope.

#  In this example, Get Google Sheets OAuth2 Access Token, the access
#  token was saved to a JSON file.  This example fetches the access token from the file..
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/googleSheets.json");
if ($jsonToken->HasMember("access_token") == 0) {
    print "No access token found." . "\r\n";
    exit;
}

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

#  Get the cells defined by the range A1:B5
$jsonResponse = $http->quickGetStr("https://sheets.googleapis.com/v4/spreadsheets/spreadsheetId/values/Sheet1!A1:B5");
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $jsonResponse . "\r\n";

$json = chilkat::CkJsonObject->new();
$json->Load($jsonResponse);

#  A sample response is shown below.
#  To generate the parsing source code for a JSON response, paste
#  the JSON into this online tool: Generate JSON parsing code

#  {
#    "range": "Sheet1!A1:B5",
#    "majorDimension": "ROWS",
#    "values": [
#      [
#        "Item",
#        "Cost"
#      ],
#      [
#        "Wheel",
#        "$20.50"
#      ],
#      [
#        "Door",
#        "$15"
#      ],
#      [
#        "Engine",
#        "$100"
#      ],
#      [
#        "Totals",
#        "$135.50"
#      ]
#    ]
#  }

$range = $json->stringOf("range");
$majorDimension = $json->stringOf("majorDimension");
$i = 0;
$count_i = $json->SizeOfArray("values");
while ($i < $count_i) {
    $json->put_I($i);
    $j = 0;
    $count_j = $json->SizeOfArray("values[i]");
    while ($j < $count_j) {
        $json->put_J($j);
        $strVal = $json->stringOf("values[i][j]");
        $j = $j + 1;
    }

    $i = $i + 1;
}