NAME

OpenAIGPT4 - Interact with the OpenAI GPT-4 API

VERSION

Version 0.02

SYNOPSIS

use OpenAIGPT4;

my $gpt = OpenAIGPT4->new('<your_api_key>');
my $response = $gpt->generate_text('Hello, how are you?');
print $response;

DESCRIPTION

This module provides a Perl interface to the OpenAI GPT-4 API. It currently supports generating text given a prompt.

METHODS

new

my $gpt = OpenAIGPT4->new('<your_api_key>');

This constructor returns a new OpenAIGPT4 object. You must pass your OpenAI API key as the argument.

generate_text

my $response = $gpt->generate_text('Hello, how are you?');

This method generates text given a prompt. The argument should be a string containing the prompt. It returns the generated text.

AUTHOR

Kawamura Shingo, <pannakoota@gmail.com>

LICENSE AND COPYRIGHT

Copyright 2023 Kawamura Shingo.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SYNOPSIS

use OpenAIGPT4;

my $gpt = OpenAIGPT4->new('<your_api_key>');
my $response = $gpt->generate_text('Hello, how are you?');
print $response;

# Or for a more interactive example:

my $gpt4 = OpenAIGPT4->new('<your_api_key>');
print "ChatGPT: Hello! Let's start a conversation.\n";

while (1) {
    print "User: ";
    my $user_input = <STDIN>;
    chomp $user_input;

    # Send the user's input to the API and receive a response
    my $response = $gpt4->generate_text($user_input);

    # Display the response
    print "ChatGPT: $response\n";

    # Check for exit condition (e.g., input of the keyword "exit")
    if ($user_input eq 'exit') {
        last; # Exit the loop to end the conversation
    }
}