Perl Requires Chilkat v11.2.0+

AI: Diagnosing an Ask Failure

See more AI Examples

Demonstrates how to get information about why a request to the AI provider failed. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $ai = Chilkat2::Ai->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->Provider('openai');

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

# Choose a model.
$ai->Model('gpt-5.6-terra');

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

# Ask the AI for text output.
my $success = $ai->Ask('text');
if (!$success) {
    # 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->ResponseStatusCode == 0) {
        print $ai->LastErrorText, "\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->ResponseStatusCode, "\n";

        # The error response (JSON) is available in the LastJsonData.
        my $json = Chilkat2::JsonObject->new;
        $json->EmitCompact(0);
        $ai->GetLastJsonData($json);
        print $json->Emit(), "\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.
my $sbResponse = Chilkat2::StringBuilder->new;
$ai->GetOutputTextSb($sbResponse);
print $sbResponse->GetAsString(), "\n";