(Perl) QuickGetObj Example

The QuickGetObj method is called to send a GET request and receive the response as an HttpResponse object.

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();

# Send a GET request to download a PDF into an HTTP response object.
# resp is a HttpResponse
$resp = $http->QuickGetObj("https://www.chilkatsoft.com/hello.pdf");
if ($http->get_LastMethodSuccess() == 0) {
    # This will happen if the request could not be sent, or if no response was received.
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Get the response status
$statusCode = $resp->get_StatusCode();
print "Response status: " . $statusCode . "\r\n";

# In this example, we want a 200 status code.
if ($statusCode == 200) {
    # Save the response body to a file.
    # Note: This is only for the sake of this example.
    # It's better to call the Download method to download directly to a file.
    $success = $resp->SaveBodyBinary("qa_output/hello.pdf");
    if ($success == 0) {
        print "Failed to write output file." . "\r\n";
    }
    else {
        print "Wrote hello.pdf" . "\r\n";
    }

}
else {
    # Perhaps we have response body with an error message..
    print $resp->bodyStr() . "\r\n";

}