Discussion :

[Kaza974]

Bonjour à tous, je m'adresse ici aux développeurs qui ont une bonne
expérience en language Perl.

Voilà j'ai du code Perl que je voudrais traduire en Php, merci !

use Test::More qw( no_plan );

use LWP::UserAgent;
use URI;

use server name::API::Crypt qw( encrypt decrypt );

my $server = "";# insert your server name here
my $partner_code = ""; # insert your partner code here
my $api_key = "..."; # insert your partner api key here
my $iv = "1234567890123456"; # on live system, this should be random 16 char IV

my $ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(
GET => "http://$server/partner/$partner_code/api/version"
);

my $res = $ua->request($req);

ok( $res->is_success, "HTTP request for version was successful" )
or die;
is( $res->content_type, "application/x-www-form-urlencoded", "Content-type is correct" );
is( $res->content, "version=4.231&ec=0", "Content is correct" );

$req = HTTP::Request->new(
POST => "http://$server/partner/$partner_code/api/echoArgs"
);

$req->content( encrypt( $api_key, $iv, 'abc', '123', 'oh my god' ) );
$res = $ua->request($req);

ok( $res->is_success, "HTTP request to echoArgs was successful" )
or die;
is( $res->content_type, "text/plain", "Content-type is correct" );

my $uri = URI->new();
$uri->query( $res->content );
is_deeply( { $uri->query_form }, { ec => 0, args => "abc,123,oh my god" }, "Arguments have been correctly echoed" );

[Jasmine80]

Bonjour à tous, je m'adresse ici aux développeurs qui ont une bonne
expérience en language Perl.

Voilà j'ai du code Perl que je voudrais traduire en Php, merci !

Utilise les balises 'CODE', ça sera plus lisible. Tu pourrais au moins essayer de traduire quelques lignes pour montrer que tu y mets du tien.