Hier ist ein einfaches Beispiel dafür, wie man sich mit Perl mit der OpenAI GPT-3 API verbindet. Sie benötigen die `REST::Client` und `JSON` Module. Stellen Sie sicher, dass Sie Ihre eigene API-Schlüssel verwenden.
```perl
#!/usr/bin/perl
use strict;
use warnings;
use REST::Client;
use JSON;
- Erstellen und konfigurieren Sie den REST-Client
my $client = REST::Client->new();
$client->setHost(‘https://api.openai.com’);
$client->addHeader(‘Content-Type’, ‘application/json’);
$client->addHeader(‘Authorization’, ‘Bearer YOUR_OPENAI_KEY’);
- Definieren Sie die GPT-3 Eingabeaufforderung
my $gpt3_prompt = {
‘prompt’ => ‘Translate the following English text to French: “{}”’,
‘max_tokens’ => 60
};
- Konvertieren Sie die Aufforderung in einen JSON-String
my $gpt3_prompt_json = to_json($gpt3_prompt);
- Senden Sie die Anforderung und speichern Sie die Antwort
$client->POST;
my $response_json = $client->responseContent();
- Konvertieren Sie die Antwort zurück in einen Perl-Datentyp
my $response = from_json($response_json);
- Drucken Sie die Antwort
print “AI response: “, $response->{‘choices’}{‘text’}, “\n”;
```
Vergewissern Sie sich, dass Sie `YOUR_OPENAI_KEY` durch Ihren eigentlichen OpenAI-API-Schlüssel ersetzen.
Bitte beachten Sie, dass der obige Code stark vereinfacht ist und kein Fehlerhandling oder andere Best Practices für die Produktion enthält. Es soll nur veranschaulichen, wie man eine Verbindung zur OpenAI API herstellt und eine Anforderung sendet.
