(Perl) HTTP HEAD Request

Sends an HTTP HEAD request and gets the response.

Note: The response to an HTTP HEAD request is always just the response header. The reponse body is always 0 length (thus the reason it's called a "HEAD" request..)

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

# If the URL uses "https://", then the connection will be TLS.
# Otherwise it will be TCP.
# resp is a HttpResponse
$resp = $http->GetHead("https://example-code.com/");
if ($http->get_LastMethodSuccess() != 1) {
    # A failure is when we don't get any response.  It could be a timeout, an inability to connect, etc.
    # For example, a "404 Not Found" response is still a response, and thus deemed success in terms of the API..
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Examine the response.
print "Status Code = " . $resp->get_StatusCode() . "\r\n";
print "Status Line = " . $resp->statusLine() . "\r\n";
print "Status Text = " . $resp->statusText() . "\r\n";
print "Full Response Header:" . "\r\n";
print $resp->header() . "\r\n";
print "----" . "\r\n";
$numHeaderFields = $resp->get_NumHeaderFields();
print "Num Header Fields: " . $numHeaderFields . "\r\n";

for ($i = 0; $i <= $numHeaderFields - 1; $i++) {
    print $resp->getHeaderName($i) . ": " . $resp->getHeaderValue($i) . "\r\n";
}