(Perl) AI: Diagnosing an Ask Failure

See more AI Examples

Note: This example requires Chilkat v11.2.0 or greater.

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

use chilkat();

$success = 0;

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

$ai = chilkat::CkAi->new();

# The provider can be "openai", "google", "claude", "deepseek", "xai", or "perplexity".
# Support for additional providers will be added in future versions of Chilkat.
$ai->put_Provider("openai");

# In this case, we're going to cause an intentional failure by using an invalid API key.
$ai->put_ApiKey("sk-11111111111111111111111111111111111111111111111k");

# Choose a model.
$ai->put_Model("gpt-4o");

# Add a text input.
$ai->InputAddText("Say Hello.");

# Ask the AI for text output.
$success = $ai->Ask("text");
if ($success == 0) {
    # If the response status code equals 0, it means the error occurred before receiving the HTTP response.
    # For this case look at the LastErrorText.
    if ($ai->get_ResponseStatusCode() == 0) {
        print $ai->lastErrorText() . "\r\n";
    }
    else {
        # If we received an error response, the status code will be >= 400.
        # (Ask would've returned 1 if the response status code was 200.)
        print "Response status code: " . $ai->get_ResponseStatusCode() . "\r\n";

        # The error response (JSON) is available in the LastJsonData.
        $json = chilkat::CkJsonObject->new();
        $json->put_EmitCompact(0);
        $ai->GetLastJsonData($json);
        print $json->emit() . "\r\n";

        # Sample output:
        # {
        #   "error": {
        #     "message": "Incorrect API key provided: sk-11111***************************************111k. You can find your API key at https://platform.openai.com/account/api-keys.",
        #     "type": "invalid_request_error",
        #     "param": null,
        #     "code": "invalid_api_key"
        #   }
        # }
    }

    exit;
}

# Get the text response.
$sbResponse = chilkat::CkStringBuilder->new();
$ai->GetOutputTextSb($sbResponse);
print $sbResponse->getAsString() . "\r\n";