Perl

HTTP HEAD Request

See more HTTP Examples

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..)

Perl

use chilkat();

$success = 0;

# 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.

# 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..

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("HEAD","https://example-code.com/",$resp);
if ($success == 0) {
    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";
}