Perl
Perl
Get a REST Response Header Value by Index
See more REST Examples
Demonstrates Rest.ResponseHdrValue, which returns the value of the response header at a zero-based index. The same index used with ResponseHdrName gives the corresponding field name.
Background. Response headers can be enumerated by index from 0 through NumResponseHeaders minus one, after ReadResponseHeader has been called.
Chilkat Perl Downloads
use chilkat();
$success = 0;
$rest = chilkat::CkRest->new();
$bTls = 1;
$bAutoReconnect = 1;
$success = $rest->Connect("example.com",443,$bTls,$bAutoReconnect);
if ($success == 0) {
print $rest->lastErrorText() . "\r\n";
exit;
}
$success = $rest->SendReqNoBody("GET","/api/items/123");
if ($success == 0) {
print $rest->lastErrorText() . "\r\n";
exit;
}
$statusCode = $rest->ReadResponseHeader();
if ($statusCode < 0) {
print $rest->lastErrorText() . "\r\n";
exit;
}
# Return the value of the response header at a zero-based index. Use the same index with
# ResponseHdrName to get the corresponding field name.
$numHeaders = $rest->get_NumResponseHeaders();
for ($i = 0; $i <= $numHeaders - 1; $i++) {
$value = $rest->responseHdrValue($i);
if ($rest->get_LastMethodSuccess() == 0) {
print $rest->lastErrorText() . "\r\n";
exit;
}
print "Header " . $i . " value: " . $value . "\r\n";
}