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...


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

Traduire du Perl

Aller en bas  Message [Page 1 sur 1]

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

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

Voir le profil de l'utilisateur

Revenir en haut  Message [Page 1 sur 1]

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