如何使用Perl从Apache Solr中的响应中获取numFound值

Question

我使用以下代码从Apache Solr

搜索文档（内容中有特定关键字）

my $solrgetapi = "http://$address:$port/solr/OppsBot/select?q=content:";
my $solrgeturl = $solrgetapi.'"'.$keyword.'"';

my $browser = LWP::UserAgent->new;
my $req =  HTTP::Request->new( GET => $solrgeturl );
$req->authorization_basic( "$username", "$pass" );
my $page = $browser->request( $req );
print $page->decoded_content;

我得到的结果如下：

{
"responseHeader":{
"status":0,
"QTime":2,
"params":{
"q":"content:\"ABC\""}},
"response":{"numFound":0,"start":0,"docs":[]
}}

我想将numFound值提取到变量中。

我在SolrJ中遇到过像这些

的一些解决方案

queryResponse.getResults().getNumFound();

但我无法在Perl中找到。

我也试过以下这些代码。但我无法让这些工作。请帮忙。

$numFound = $page->decoded_content->{response}->{numFound};
print $page->{numFound}

Answer 1

您忽略了将JSON文本转换为数据结构。

use JSON::MaybeXS qw(decode_json);
say decode_json($page->decoded_content)->{response}{numFound}
# 0