GetFilter Perl Example
use chilkat();
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$rest = chilkat::CkRest->new();
$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
# Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
$authAws->put_Region("us-west-2");
$authAws->put_ServiceName("guardduty");
# SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$rest->SetAuthAws($authAws);
# URL: https://guardduty.us-west-2.amazonaws.com/
# Use the same region as specified above.
$success = $rest->Connect("guardduty.us-west-2.amazonaws.com",443,1,1);
if ($success != 1) {
print "ConnectFailReason: " . $rest->get_ConnectFailReason() . "\r\n";
print $rest->lastErrorText() . "\r\n";
exit;
}
$rest->AddHeader("Content-Type","application/x-amz-json-1.1");
$rest->AddHeader("X-Amz-Target","GetFilter");
$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestNoBodySb("GET","/detector/{detectorId}/filter/{filterName}",$sbResponseBody);
if ($success != 1) {
print $rest->lastErrorText() . "\r\n";
exit;
}
$respStatusCode = $rest->get_ResponseStatusCode();
print "response status code = " . $respStatusCode . "\r\n";
if ($respStatusCode != 200) {
print "Response Header:" . "\r\n";
print $rest->responseHeader() . "\r\n";
print "Response Body:" . "\r\n";
print $sbResponseBody->getAsString() . "\r\n";
exit;
}
$jResp = chilkat::CkJsonObject->new();
$jResp->LoadSb($sbResponseBody);
# The following code parses the JSON response.
# A sample JSON response is shown below the sample code.
# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
$action = $jResp->stringOf("action");
$description = $jResp->stringOf("description");
$GreaterThan = $jResp->IntOf("findingCriteria.criterion.string.greaterThan");
$GreaterThanOrEqual = $jResp->IntOf("findingCriteria.criterion.string.greaterThanOrEqual");
$Gt = $jResp->IntOf("findingCriteria.criterion.string.gt");
$Gte = $jResp->IntOf("findingCriteria.criterion.string.gte");
$LessThan = $jResp->IntOf("findingCriteria.criterion.string.lessThan");
$LessThanOrEqual = $jResp->IntOf("findingCriteria.criterion.string.lessThanOrEqual");
$Lt = $jResp->IntOf("findingCriteria.criterion.string.lt");
$Lte = $jResp->IntOf("findingCriteria.criterion.string.lte");
$name = $jResp->stringOf("name");
$rank = $jResp->IntOf("rank");
$v_String = $jResp->stringOf("tags.string");
$i = 0;
$count_i = $jResp->SizeOfArray("findingCriteria.criterion.string.eq");
while ($i < $count_i) {
$jResp->put_I($i);
$strVal = $jResp->stringOf("findingCriteria.criterion.string.eq[i]");
$i = $i + 1;
}
$i = 0;
$count_i = $jResp->SizeOfArray("findingCriteria.criterion.string.equals");
while ($i < $count_i) {
$jResp->put_I($i);
$strVal = $jResp->stringOf("findingCriteria.criterion.string.equals[i]");
$i = $i + 1;
}
$i = 0;
$count_i = $jResp->SizeOfArray("findingCriteria.criterion.string.neq");
while ($i < $count_i) {
$jResp->put_I($i);
$strVal = $jResp->stringOf("findingCriteria.criterion.string.neq[i]");
$i = $i + 1;
}
$i = 0;
$count_i = $jResp->SizeOfArray("findingCriteria.criterion.string.notEquals");
while ($i < $count_i) {
$jResp->put_I($i);
$strVal = $jResp->stringOf("findingCriteria.criterion.string.notEquals[i]");
$i = $i + 1;
}
# A sample JSON response body parsed by the above code:
# {
# "action": "string",
# "description": "string",
# "findingCriteria": {
# "criterion": {
# "string": {
# "eq": [
# "string"
# ],
# "equals": [
# "string"
# ],
# "greaterThan": number,
# "greaterThanOrEqual": number,
# "gt": number,
# "gte": number,
# "lessThan": number,
# "lessThanOrEqual": number,
# "lt": number,
# "lte": number,
# "neq": [
# "string"
# ],
# "notEquals": [
# "string"
# ]
# }
# }
# },
# "name": "string",
# "rank": number,
# "tags": {
# "string": "string"
# }
# }