仿豆瓣分页导航

infernor

1. #!/usr/bin/perl
   
2. #==========================================================================
   
3. #         FILE:  page.pl
   
4. #       AUTHOR:  YOUR NAME (),
   
5. #      VERSION:  1.0
   
6. #      CREATED:  2011/4/15 21:24:09
   
7. 
   
8. use strict;
   
9. use warnings;
   
10. my ($page, $current) = @ARGV;
    
11. 
    
12. my @page = $current-4..$current+4;
    
13. 
    
14. #left
    
15. if ($current - 1 < 10) {
    
16.         my $l_r = ($current+4 >9)?$current+4:9;
    
17.         @page = 1..$l_r;
    
18. }
    
19. else {
    
20.         unshift @page, 1,2,0;
    
21. 
    
22. }
    
23. #right
    
24. if ($page-$current < 10) {
    
25.         pop @page for (1..9);
    
26.         my $r_l = ($page-$current > 4)?$current-4:$page-8;
    
27.         push @page, $r_l..$page;
    
28. }
    
29. else {
    
30.         push @page, 0,$page-1,$page;
    
31. }
    
32. # when page < 10
    
33. @page = grep {$_ >= 0} @page;
    
34. shift @page unless $page[0];
    
35. print join ',', @page;
    

复制代码

算法不好，勉强实现了功能，有没有简单点的实现方式？

兰花仙子

算法不好，勉强实现了功能，有没有简单点的实现方式？
infernor 发表于 2011-04-16 00:06

    这种一般用数据库的SQL语句limit N,M来做。

infernor

回复 2# 兰花仙子


   我可能表述得不清楚，仙子没看明白

我说的是导航那里，控制哪些页面的链接出现，比如

上一页 1 2 3 4 5 6 7 8 9 10...63 64 下一页

给个豆瓣链接 http://www.douban.com/group/topic/15108130/

2gua

雕虫小技，分页实现千万种，Web开发必备能力。

hitsubunnu

use Data:: Page