perl - 使用 Perl 从 Xapian 数据库中获取特定数据

Question

我正在编写一个 perl 脚本来从 Xapian 数据库中检索搜索结果。

我使用Search::Xapian模块并尝试了基本的Xapian Query Example。这个基本程序允许进行查询并获得按相关性排序的结果数组。我的问题是该 get_data()方法返回文档中的全部数据（url，filname，abstract，author，...）作为字符串混合在一起。

我在CPAN 模块中搜索了一种逐个获取每个数据的方法，但没有找到。

是否可以一一获取文件名、url、作者...以将它们放入特定变量中？

Answer 1

您尚未发布生成此代码的代码或设置的详细信息。请参阅simplesearch.pl示例，而不是将其打印出来，将您想要的内容分配给变量：

# Display the results.
printf "%i results found.\n", $mset->get_matches_estimated();
printf "Results 1-%i:\n", $mset->size();

foreach my $m ($mset->items()) {
    printf "%i: %i%% docid=%i [%s]\n", $m->get_rank() + 1, $m->get_percent(), $m->get_docid(), $m->get_document()->get_data();
}