Perl Requires Chilkat v11.2.0+

AI: Simple Stateless Streaming Response

See more AI Examples

Shows a simple stateless query and receives the response in streaming mode. 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');

# Use your provider's API key.
$ai->ApiKey('MY_API_KEY');

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

# Indicate streaming mode is to be used.
$ai->Streaming(1);

# Add a text input.
$ai->InputAddText('Write a detailed story about a turtle who decides to run a bakery.  Describe the setting, the kinds of pastries, how the turtle feels, and include at least three paragraphs.');

# Ask the AI for text output.
my $success = $ai->Ask('text');
if (!$success) {
    print $ai->LastErrorText, "\n";
    exit;
}

my $sbEventName = Chilkat2::StringBuilder->new;
my $sbDelta = Chilkat2::StringBuilder->new;
my $sbFullResponse = Chilkat2::StringBuilder->new;
my $finished = 0;
my $abortFlag = 0;
my $maxWaitMs = 5000;

while (!$finished) {
    my $result = $ai->PollAi($abortFlag);
    if ($result == 1) {
        # We have output waiting.  It should be instantly available.  The maxWaitMs is just-in-case.
        $success = $ai->NextAiEvent($maxWaitMs, $sbEventName, $sbDelta);
        if (!$success) {
            print $ai->LastErrorText, "\n";
            exit;
        }

        # Some AI providers send many "empty" events.  Just ignore them.
        if (!$sbEventName->ContentsEqual('empty', 1)) {
            # Log the non-empty events.
            print $sbEventName->GetAsString(), "\n";

            # The delta contains the new output.  This could be emitted to a display or the terminal
            # as real-time output.
            if ($sbEventName->ContentsEqual('delta', 1)) {
                print $sbDelta->GetAsString(), "\n";

                # Accumulate the delta's so we can show the full response later.
                $sbFullResponse->AppendSb($sbDelta);
            } else {
                # A streaming AI response is always terminated by a single "null_terminator" event.
                $finished = $sbEventName->ContentsEqual('null_terminator', 1);
            }
        }
    } else {
        if ($result == 0) {
            # Nothing is immediately available. Sleep for 1/10 of a second before polling again.
            $ai->SleepMs(100);
        } else {
            # Something failed..
            print $ai->LastErrorText, "\n";
            $finished = 1;
        }
    }
}

# Show the accumulated (full) response.
print "----\n";
print $sbFullResponse->GetAsString(), "\n";

# -------------------------------------------------------------
# The response is in markdown format.
# Also see Markdown to HTML Conversion Examples.
# -------------------------------------------------------------