Enumerate REST Response Header Names

See more REST Examples

Demonstrates Rest.ResponseHdrName, which returns the field name of the response header at a zero-based index. The example enumerates all headers, pairing each name with its value.

use strict;
use warnings;
use Chilkat2;

my $rest = Chilkat2::Rest->new;
my $bTls = 1;
my $bAutoReconnect = 1;
my $success = $rest->Connect('example.com', 443, $bTls, $bAutoReconnect);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

$success = $rest->SendReqNoBody('GET', '/api/items/123');
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

my $statusCode = $rest->ReadResponseHeader();
if ($statusCode < 0) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Enumerate the response header fields by zero-based index.  ResponseHdrName returns the field name
# and ResponseHdrValue returns the value at the same index.
my $numHeaders = $rest->NumResponseHeaders;
for my $i (0 .. $numHeaders - 1) {
    my $name = $rest->ResponseHdrName($i);
    if (!$rest->LastMethodSuccess) {
        print $rest->LastErrorText, "\n";
        exit;
    }

    my $value = $rest->ResponseHdrValue($i);
    if (!$rest->LastMethodSuccess) {
        print $rest->LastErrorText, "\n";
        exit;
    }

    print $name, ': ', $value, "\n";
}