仿豆瓣分頁導航

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;
    

復制代碼

算法不好，勉強實現(xiàn)了功能，有沒有簡單點的實現(xiàn)方式？

蘭花仙子

算法不好，勉強實現(xiàn)了功能，有沒有簡單點的實現(xiàn)方式？
infernor 發(fā)表于 2011-04-16 00:06

    這種一般用數(shù)據(jù)庫的SQL語句limit N,M來做。

infernor

回復 2# 蘭花仙子


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

我說的是導航那里，控制哪些頁面的鏈接出現(xiàn)，比如

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

給個豆瓣鏈接 http://www.douban.com/group/topic/15108130/

2gua

雕蟲小技，分頁實現(xiàn)千萬種，Web開發(fā)必備能力。

hitsubunnu

use Data:: Page