Perl -- 使用 JSON::RPC::Client 时出现 'Not a HASH reference' 错误

Question

我是 Perl 的新手。
我有一个 JSON-RPC 服务器在 http://localhost:19000 上运行，我需要调用 checkEmail() 方法。

use JSON::RPC::Client;

my $client = new JSON::RPC::Client;
my $url    = 'http://localhost:19000';

my $callobj = { 
    method  => 'checkEmail',
    params  => [ 'rprikhodchenko@gmail.com' ],
};

my $res = $client->call($url, $callobj);

if($res) {
     if ($res->is_error) {
         print "Error : ", $res->error_message;
     }   
     else {
         print $res->result;
     }   
  }
  else {
     print $client->status_line;
  }

当我尝试启动它时，它会告诉以下内容:

perl ./check_ac.pl
Not a HASH reference at /usr/local/share/perl/5.10.1/JSON/RPC/Client.pm line 193.

更新:

完整的堆栈跟踪:

perl -MCarp::Always ./check_ac.pl
Not a HASH reference at /usr/local/share/perl/5.10.1/JSON/RPC/Client.pm line 193
        JSON::RPC::ReturnObject::new('JSON::RPC::ReturnObject', 'HTTP::Response=HASH(0x9938d48)', 'JSON=SCALAR(0x96f1518)') called at /usr/local/share/perl/5.10.1/JSON/RPC/Client.pm line 118
        JSON::RPC::Client::call('JSON::RPC::Client=HASH(0x944a818)', 'http://localhost:19000', 'HASH(0x96f1578)') called at ./check_ac.pl line 11

Answer 1

这个错误意味着你的 JSON-RPC 服务器实际上不是一个，因为它不满足 requirement 7.3 .当 JSON::RPC::Client 时触发错误假设 JSON-RPC 服务返回的文档是格式良好的(即 JSON 对象)，而这种假设被证明是错误的。给 JSON::RPC::Client 作者的错误报告将是请求更好的错误消息的适当方式。

我将通过找出导致 JSON::RPC::Client 的服务器返回的内容来解决此类问题。呛。不幸的是，JRC无法提供足够的 Hook 点来发现这一点，因此您必须有点棘手。

我不喜欢编辑外部库，因此我建议使用扩展和覆盖方法来检测 JSON-RPC 服务器的流量。像这样(在 check_ac.pl 中):

use Data::Dumper qw();

package JSON::RPC::InstrumentedClient;
use base 'JSON::RPC::Client';

# This would be better done with Module::Install, but I'm limiting dependencies today.
sub _get {
    my ($self, @args) = @_;

    return $self->_dump_response($self->SUPER::_get(@args));
}

sub _post {
    my ($self, @args) = @_;

    return $self->_dump_response($self->SUPER::_post(@args));
}

sub _dump_response {
    my ($self, $response) = @_;

    warn Data::Dumper::Dump([$response->decoded_content], [qw(content)]);
    return $response;
}

package main;

my $client = JSON::RPC::InstrumentedClient->new();
my $url    = 'http://localhost:19000';

... # rest of check_ac.pl

这包装了对 _get 的调用和 _post那个 JSON::RPC::Client以这样一种方式在内部进行，让您检查 Web 服务器响应我们提出的请求实际所说的内容。上面的代码转储了页面的文本内容；在您的情况下，这可能不是正确的事情，如果遇到错误，它将爆炸。它只是一个调试辅助工具，可以帮助您从客户端代码方面找出服务器的问题所在。

我想，这已经足够了。祝你好运。