Sample code for 30+ languages & platforms
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

Perl
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";
}