Non esiste un SDK ufficiale OpenAI per Perl, quindi dovrai fare l’HTTP request manualmente.
Prima di tutto, hai bisogno di installare “HTTP::Request” e “LWP::UserAgent” dal CPAN se non lo hai già fatto. Questi moduli ti aiuteranno a fare l’HTTP request.
Ecco un esempio di come potrebbe apparire il tuo codice:
```
use JSON;
use HTTP::Request;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $api_endpoint = ‘https://api.openai.com/v1/engines/davinci-cd4n/completions’;
my $json = encode_json {
‘prompt’ => ‘Translate the following english text to french: “{text}”’,
‘max_tokens’ => 60,
};
my $req = HTTP::Request->new(POST => $api_endpoint);
$req->header(‘Content-Type’ => ‘application/json’);
$req->header(‘Authorization’ => ‘Bearer YOUR_OPEN_AI_KEY’);
$req->content($json);
my $res = $ua->request($req);
if ($res->is_success) {
print $res->decoded_content, “\n”;
}
else {
die $res->status_line;
}
```
Ricorda di sostituire “Bearer YOUR_OPEN_AI\_KEY” con la tua chiave API effettiva.
Nota: Il codice di cui sopra è solo un esempio e potrebbe non funzionare senza modifiche. Assicurati di comprendere cosa fa prima di usarlo e fare sempre riferimento alla documentazione di OpenAI per i dettagli precisi su come usare la loro API.
