使用LWP :: Agent的Perl JSON :: RPC :: Client [英] Perl JSON::RPC::Client using LWP::Agent
问题描述
已要求我不要使用JSON :: RPC :: Client,而应使用LWP进行调用.
I have been given requirements to not use the JSON::RPC::Client, instead use LWP to do the calls.
这是我的代码:
服务器:
#!/usr/bin/perl
use strict;
use lib ".";
use ServerLib;
use JSON::RPC::Server::Daemon;
die "Do Not run as Root\n" if($< == 0);
print "Starting Daemon\n";
my $daemon = JSON::RPC::Server::Daemon->new(LocalPort => 8000);
$daemon->dispatch({'/jsonrpc/API' => 'ServerLib'})->handle();
exit;
模块:
package ServerLib;
use base qw(JSON::RPC::Procedure); # Perl 5.6 or more than
use JSON;
use Data::Dumper;
use Sys::Hostname;
use Net::RabbitMQ;
use YAML qw( LoadFile );
use strict;
$| = 1;
my $VERSION = 0.2.0;
sub echo : Public(message:string) {
my ($s, $obj) = @_;
my $message = $obj->{'message'};
print "got message => $message\n";
print "returning: $message\n";
my $object = { message => $message,
foobar => "garbage" };
return $object;
}
package ServerLib::system;
sub describe {
{
sdversion => "0.1",
name => 'ServerLib',
};
}
1;
工作中的客户端:
#!/usr/bin/perl
use strict;
use JSON::RPC::Client;
use Data::Dumper;
my $client = new JSON::RPC::Client;
my $uri = 'http://localhost:8000/jsonrpc/API';
my $obj = {
method => 'echo', # or 'MyApp.sum'
params => ["my message"],
};
my $res = $client->call( $uri, $obj );
if($res){
if ($res->is_error) {
print "Error : ", $res->error_message;
}
else {
print Dumper($res->result);
}
}
else {
print $client->status_line;
}
非工作客户:
#!/usr/bin/perl -w
use strict;
use JSON;
use LWP::Simple;
use Data::Dumper;
my $actionurl = "http://localhost:8000/jsonrpc/API";
my $ua = LWP::UserAgent->new();
$ua->agent("JSONClient/0.1");
my $object = { method => "echo",
params => [@ARGV ] };
my $json = to_json($object);
print "$json\n";
my $req = HTTP::Request->new(POST => $actionurl);
$req->content_type('application/json');
$req->content($json);
my $res = $ua->request($req);
if ($res->is_success)
{
print "Succeeded:\n" . Dumper($res->dump);
print "DUmp: ". $res->dump;
my $result = to_json($res->content);
}
else
{
print "Failed\n";
}
我看到两个客户端的服务器进程,但是第二个客户端没有返回数据.
I see the server process for both clients but the second client has no data returned to it.
DUmp: HTTP/1.1 200 OK
Connection: close
Date: Tue, 03 Jan 2012 18:24:24 GMT
Server: libwww-perl-daemon/5.827
Content-Type: application/json; charset=UTF-8
Client-Date: Tue, 03 Jan 2012 18:24:24 GMT
Client-Peer: 127.0.0.1:8000
Client-Response-Num: 1
(no content)
有人看到我想念的东西吗?它应该很简单,但是由于某种原因,我找不到像RPC :: Client这样的响应字符串.
Does anybody see what I am missing? It should be pretty simple but for some reason I can't find the response string like the RPC::Client sees.
推荐答案
这是一个棘手的问题.我的一位同事找到了它,而他不在Stackoverflow上,所以我将发布此修复程序.
This was a tricky one. One of my co-workers found it and he isn't on Stackoverflow so I will post the fix.
此:
my $object = { method => "echo",
params => [@ARGV ] };
需要的版本=>"1.1",添加为:
Needed version => "1.1", added to it to become:
my $object = { method => "echo",
params => [@ARGV],
version => "1.1",};
不确定为什么如此重要,但是一旦添加它,它就像是一种魅力.
Not sure why this matters, but once it was added it worked like a charm.
这篇关于使用LWP :: Agent的Perl JSON :: RPC :: Client的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!