(Perl) QuickGetBd Example

The QuickGetBd method is called to send a GET request to download a binary target, such as PDF, zip, image file, etc. into a Chilkat BinData 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();
$bd = chilkat::CkBinData->new();

# Download the contents of a PDF file into the bd object.
$success = $http->QuickGetBd("https://www.chilkatsoft.com/hello.pdf",$bd);
if ($success == 0) {
    # This will happen if the response status code was 400 or greater,
    # or if the request could not be sent, or if no response was received.
    # 
    # In other words, success will only be 1 if bd contains the desired content at the URL (not an error response).
    $statusCode = $http->get_LastStatus();
    print "Response status: " . $statusCode . "\r\n";

    if ($statusCode == 0) {
        # There was an error in communications.  
        print $http->lastErrorText() . "\r\n";
    }
    else {
        # We received a response status code indicating failure.
        # Examine the response body.
        print $http->lastResponseBody() . "\r\n";
    }

    exit;
}

# Save the contents of bd 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 = $bd->WriteFile("qa_output/hello.pdf");
if ($success == 0) {
    print "Failed to write output file." . "\r\n";
}
else {
    print "Wrote hello.pdf" . "\r\n";
}