我使用以下代码从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}
答案 0 :(得分:0)
您忽略了将JSON文本转换为数据结构。
use JSON::MaybeXS qw(decode_json);
say decode_json($page->decoded_content)->{response}{numFound}
# 0