perl cgi 分页显示功能

HF.SKY000

如题，谁有PERL+CGI 分页显示方面的代码，贴出来看看。

越简单截越好。THANKS。

兰花仙子

原帖由 HF.SKY000 于 2009-12-6 15:46 发表
如题，谁有PERL+CGI 分页显示方面的代码，贴出来看看。

越简单截越好。THANKS。

这个很简单呀~都是数据库的一些功能。
select ... limit xx,yy
xx表示查询起始位置，yy表示记录个数，你自己在程序里构造好这2个数就可以了。

cobrawgl

用 orm 做就很方便了，

简单的比如  Class::DBI::Pageset 之类的，用不着自己去写代码实现

HF.SKY000

首先谢谢你的回答。这个我估计还是把握不好，能否给出一个示例。
要有：第一页|下一页|上一页。

HF.SKY000

perl 中有Class:BI:ageset 这个包吗？怎么网上也没有找到呢？

cobrawgl

ls 你真的找过？

兰花仙子

随手写了下，当前页的：

1. my $num = xx; # xx items per page
   
2. my $page = yy;  # which page
   
3. 
   
4. my $count = dbi_method("select count(*) from table");
   
5. 
   
6. my $total;  # total page
   
7. if ($count % $num ) {
   
8.     $total = int ($count/$num) +1;
   
9. } else {
   
10.     $total = $count/$num;
    
11. }
    
12. 
    
13. my $offset = $num * ($page -1);  # start item
    
14. my $records = dbi_method("select * from table limit $offset,$num"); # fetch the records

复制代码

前一页和后一页的：

1. my $prevpage = ($page -1) || 1;  # prevpage
   
2. my $nextpage = ($page +1 > $total) ? $total : $page +1;  # next page

复制代码

Cheers~

edgar51774

和别的语言分页一样...可以看php..等一些语言的分页实现就行。

cobrawgl

package TcmDict::Search; use strict; use warnings; use base 'TcmDict'; use URI::Escape; # # Runmodes ----------------------- # sub default : StartRunmode {     my $self = shift;          my %tables = (         '中药' => 'zhongyao',         '方剂' => 'fj_info_gb2312',         '西药' => 'xiyao',         '辞典' => 'fangji', # maybe, later it wiil be 'cidian'     );     my $q        = $self->query->param('q'); # if $q is null, it should be redirected to an error page...     my $meta    = $self->query->param('meta');          my $query = '%' . $q . '%';          my $dict    = $self->{'__cdbi__loader__'}->find_class($tables{"$meta"});     my $pager    = $dict->pager({         entries_per_page => 20,         current_page     => $self->query->param('page') || 1,         pages_per_set    => 5,     });          my $results = $pager->search_like(mingcheng => $query);          $self->template->fill('search.tt',         { results => $results,           pager => $pager,           q => uri_escape($q),           meta => uri_escape($meta),           lib => uri_escape($meta),}     );         } =head     sub node : Runmode {     my $self = shift;      } =cut sub error : ErrorRunmode {} 1;

这是用 CGI::Application 作的一个小玩意，其中的 查询部分，这个就可以实现分页了，当然，还有其他部分没发，还有 template 的

cobrawgl

cpan 有那么多好模块，不用可惜了啊