(Perl) Send HTTPS Get Without Waiting for the Response
This example demonstrates sending an HTTP GET request without waiting for the response.
use chilkat();
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$rest = chilkat::CkRest->new();
# Connect to the server using TLS
$bAutoReconnect = 0;
$success = $rest->Connect("example.com",443,1,$bAutoReconnect);
if ($success == 0) {
print $rest->lastErrorText() . "\r\n";
exit;
}
# Send a GET request to https://example.com/some/path
$success = $rest->SendReqNoBody("GET","/some/path");
if ($success == 0) {
print $rest->lastErrorText() . "\r\n";
exit;
}
# OK, the request was sent.
# Close the connection.
$maxWaitMs = 50;
$rest->Disconnect($maxWaitMs);
print "GET Request Sent." . "\r\n";
|