(Perl) AWS KMS List Keys

See more AWS KMS Examples

Gets a list of all KMS keys in the caller's AWS account and Region.

For more information, see https://docs.aws.amazon.com/kms/latest/APIReference/API_ListKeys.html

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.

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

# Connect to the Amazon AWS REST server.
# Make sure to use the region that is correct for you.
# such as https://kms.us-west-2.amazonaws.com/
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("kms.us-west-2.amazonaws.com",$port,$bTls,$bAutoReconnect);

# Provide AWS credentials for the REST call.
$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
# the region should match our URL above..
$authAws->put_Region("us-west-2");
$authAws->put_ServiceName("kms");

$rest->SetAuthAws($authAws);

$rest->AddHeader("X-Amz-Target","TrentService.ListKeys");
$rest->AddHeader("Content-Type","application/x-amz-json-1.1");

$strJson = $rest->fullRequestString("POST","/","{}");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# A successful response will have a status code equal to 200.
if ($rest->get_ResponseStatusCode() != 200) {
    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: " . $strJson . "\r\n";
    exit;
}

# Examine the successful JSON response (shown below)
$json = chilkat::CkJsonObject->new();
$json->Load($strJson);
$json->put_EmitCompact(0);

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

# Sample output:

# {
#   "KeyCount": 4,
#   "Keys": [
#     {
#       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/082f8520-7afc-4a09-b703-89b7243072e5",
#       "KeyId": "082f8520-7afc-4a09-b703-89b7243072e5"
#     },
#     {
#       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/17432483-ff08-4950-93d3-f46ebb5e17d1",
#       "KeyId": "17432483-ff08-4950-93d3-f46ebb5e17d1"
#     },
#     {
#       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/1b0e5b3c-0675-4510-adb6-a75b40a93da0",
#       "KeyId": "1b0e5b3c-0675-4510-adb6-a75b40a93da0"
#     },
#     {
#       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/265e3993-428b-4581-9466-b1030a53062f",
#       "KeyId": "265e3993-428b-4581-9466-b1030a53062f"
#     },
#   ],
#   "Truncated": false
# }

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

$KeyCount = $json->IntOf("KeyCount");
$Truncated = $json->BoolOf("Truncated");
$i = 0;
$count_i = $json->SizeOfArray("Keys");
while ($i < $count_i) {
    $json->put_I($i);
    $KeyArn = $json->stringOf("Keys[i].KeyArn");
    $KeyId = $json->stringOf("Keys[i].KeyId");
    $i = $i + 1;
}