OpenAI API fournit actuellement des exemples de code pour Python. Ils n’offrent pas d’exemples dans d’autres langages comme Perl mais vous pouvez en principe utiliser ChatGPT API avec n’importe quel langage de programmation qui a la capacité de faire des requêtes HTTP post. Voici comment vous pourriez l’implémenter en Perl avec le module `HTTP::Request::Common` et `LWP::UserAgent`.
```
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use JSON;
my $ua = LWP::UserAgent->new;
my $url = ‘https://api.openai.com/v1/engines/davinci-codex/completions’;
my $openai_secret_key = ‘Your-OpenAI-Key’;
my $req = POST );
my $response = $ua->request($req);
if ($response->is_success) {
my $message = decode_json($response->decoded_content);
print “$message->{‘choices’}0{‘text’}\n”;
}
else {
die $response->status_line;
}
```
Veuillez remplacer `‘Your-OpenAI-Key’` par votre clé secrète OpenAI.
Assurez-vous d’avoir installé les modules requis. Vous pouvez les installer à partir de CPAN ou avec cpanm :
```
cpan HTTP::Request::Common
cpan LWP::UserAgent
cpan JSON
```
Assurez-vous également que vous avez correctement géré les erreurs pour votre application. Le code ci-dessus est une indication de base de comment le faire et pourrait nécessiter des ajustements en fonction de vos besoins spécifiques.
