Om verbinding te maken met de ChatGPT API met Perl, moet je een REST-client voor Perl zoals LWP::UserAgent installeren en vervolgens een HTTP POST-verzoek uitvoeren naar de API-endpoint, waarbij de API-sleutel in de request header moet worden opgenomen. Hier is een basisscript als voorbeeld hoe je dit kunt doen:
```
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use JSON;
my $api_key = ‘
my $endpoint = ‘https://api.openai.com/v1/engines/davinci-codex/completions’;
my $prompt = ‘Translate the following English text to French: “{\\“role\\”: \\“system\\”, \\“content\\”: \\“You are a helpful assistant.\\”}”’;
my $max_tokens = 60;
my $ua = LWP::UserAgent->new;
my $req = POST $endpoint, Content_Type => ‘application/json’, ‘Authorization’ => “Bearer $api_key”, Content => to_json { ‘prompt’ => $prompt, ‘max_tokens’ => $max_tokens, };
my $res = $ua->request($req);
if ($res->is_success) {
my $message = from_json( $res->decoded_content );
print $message->{‘choices’}0{‘text’} . “\n”;
}
else {
die $res->status_line;
}
```
Vergeet niet om je eigen OpenAI API-sleutel te gebruiken om het `
Echter, ChatGPT API kan vragen om bepaalde parameters specifiek nadrukkelijk ingevuld te zijn zoals ‘prompt’ of ‘max\_tokens’ gebaseerd op wat je nodig hebt.
De `openai.com` website biedt meer details over de API en de bijbehorende parameters.
