Forum du développeur
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Forum du développeur

Le forum du développeur vous permettra d'obtenir de l'aide si vous voulez débuter le développement ou si vous développez, que ce soit des programmes ou des sites web. Il vous aidera aussi pour votre système d'exploitation et votre matériel...

Le deal à ne pas rater :
Jeux, jouets et Lego : le deuxième à -50% (large sélection)
Voir le deal

Vous n'êtes pas connecté. Connectez-vous ou enregistrez-vous

Traduire du Perl

Aller en bas  Message [Page 1 sur 1]

1Traduire du Perl Empty Traduire du Perl Mar 18 Aoû - 16:22

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" );

Revenir en haut  Message [Page 1 sur 1]

Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum