perl - 如何使用Elasticsearch在Catalyst应用程序中进行分页?

标签 perl elasticsearch pagination catalyst

我正在使用Web框架Catalyst,并且想使用Data::Paginator插件对Elasticsearch查询的结果进行分页。现在是我的代码:

Root.pm


sub search :Global {
    my ( $self, $c ) = @_;
    my $search = $c->model('Search');
    my $m = $c->req->params->{m};

    my $from = 0;
    my $size = 10;          

    my $results = $search->search(
      index => 'index1',
      type => 'type1',
      body  => {
        query => {
            prefix => { entree => $m }
        },
    from => $from,
    size => $size
      }
    );

    my $pager = Data::Paginator->new(
     current_page => 1,
     entries_per_page => 10,
     total_entries => $results->{hits}{total},
    );
    my $p = { next_page=>$pager->next_page, previous_page=>$pager->previous_page };

    my @res=();
    for my $i ( @{ $results->{hits}->{hits} } ) {
      my $h = { entree => $i->{_source}->{entree}, contenu => $i->{_source}->{contenu} };
      push @res, $h;
    }

    $c->stash(template => 'search.tt', total => $results->{hits}{total}, m=>$m , res=>\@res, pager=>$p);
    $c->forward('View::HTML');
}

还有模板

search.tt


<!DOCTYPE html>
<html lang="fr">
  <head>
    <meta charset="utf-8">
    <title>Résultats</title>
  </head>
  <body>
    <h1>[% total %] résultat(s) pour [% m %]</h1>
    [% IF total >0 %]
      [% FOREACH h IN res %]
        <h2>[% h.entree %]</h2>
        <p>[% h.contenu %]</p>
      [% END %]
    [% ELSE %]
      <p>Pas de résultat</p>
    [% END %]
  </body>
  <footer>
    <a href="/">Nouvelle recherche</a>
    <a href="/search?offset=[% pager.previous_page %]&m=[% m %]">Previous Page</a>
    <a href="/search?offset=[% pager.next_page %]&m=[% m %]">Next Page</a>
    <a> DATA PAGINATOR TEST [% pager %]</a>
 </footer>
</html>

当我单击“下一页”或“上一页”并显示新结果时,我想通过elasticsearch进行新查询:
 my $results = $search->search(
      index => 'index1',
      type => 'type1',
      body  => {
        query => {
            prefix => { entree => $m }
        },
    from => $from + 10, 

OR from => $from -10,


    size => $size
      }
    );

谢谢一些关于如何做到这一点的提示。

编辑1:

Root_v2.pm


sub search :Global {
    my ( $self, $c ) = @_;
    my $search = $c->model('Search');
    my $m = $c->req->params->{m};
    my $offset = $c->req->params->{offset} ? $c->req->params->{offset} : 0;

    my $from = 0;
    my $size = 10;          

    my $results = $search->search(
      index => 'index1',
      type => 'type1',
      body  => {
        query => {
            prefix => { entree => $m }
        },
    from => $offset*$size,
    size => $size
      }
    );

    my $pager = Data::Paginator->new(
     current_page => $offset,
     entries_per_page => 10,
     total_entries => $results->{hits}{total},
    );
    my $p = { next_page=>$pager->next_page, previous_page=>$pager->previous_page };

    my @res=();
    for my $i ( @{ $results->{hits}->{hits} } ) {
      my $h = { entree => $i->{_source}->{entree}, contenu => $i->{_source}->{contenu} };
      push @res, $h;
    }

    $c->stash(template => 'search.tt', total => $results->{hits}{total}, m=>$m , res=>\@res, pager=>$p);
    $c->forward('View::HTML');
}

我从search.tt文件中的href获得偏移量,并用它来修改elasticsearch查询中的“from”参数。

但是我对Data::Paginator中的“current_page”有疑问:即使我的$ offset等于0本身,它也永远不会等于0(请参阅current_page => $ offset)。第一次单击下一页时,我错过了第10至20个结果。

行为是这样的:

Click on search button: OFFSET=0 / CURRENT_PAGE=1 / NEXT_PAGE=2 / PREVIOUS_PAGE=not def

Click on next page button: OFFSET=2 / CURRENT_PAGE=2 / NEXT_PAGE=3 / PREVIOUS_PAGE=1

Click on previous page button: OFFSET=1 / CURRENT_PAGE=1 / NEXT_PAGE=2 / PREVIOUS_PAGE=not def



您会看到我第一次单击下一页按钮时错过了结果,这是因为我的偏移量直接从0跳到2跳过了1。

编辑2

Root_v3.pm



修改内容:
my $offset = $c->req->params->{offset} ? $c->req->params->{offset} : O; 
▼▼▼
my $offset = $c->req->params->{offset} ? $c->req->params->{offset} : 1;


from => $offset*$size,
▼▼▼
from => ($offset-1)*$size,

现在可以了!

最佳答案

看到我所做的两个编辑的原始帖子。

关于perl - 如何使用Elasticsearch在Catalyst应用程序中进行分页?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49755931/

相关文章:

perl - 使用 Filehandle 和 while 循环定义的用法

elasticsearch - 如何在ElasticSearch Aggregation中包含所有文档并避免sum_other_doc_count> 0

javascript - 想要动态处理与分页相关的页码显示 : ReactJS

c# - ASP.NET 中 GridView 的分页(不会转到第 2,3 页等)

javascript - 在一个php页面中使用ajax搜索功能后加载数据

perl - 如何将错误消息输出到不同的日志文件?

apache - 当文件被压缩时 Perl 上传失败

perl - 如何在perl中包含用户输入的单引号

elasticsearch - Elasticsearch River Web集成

elasticsearch - 模糊度超过2个字符的 Elasticsearch (距离)