Perl だと、ページング処理は Data::Page::Navigation かな

Perl だと、ページング処理は Data::Page::Navigation かな #

viaウノウラボ Unoh Labs: PEAR::Pagerで生成されるリンクを並び替える

Webアプリケーションではページングの処理を行うことがよくありますが、実際にこの仕組みを作るには少々手間がかかるので、この処理を肩代わりしてくれるライブラリがほしいところです。
 
この手のライブラリは、PHPではPEAR::Pagerが有名かと思います。

Perl では Data::Page::Navigation を使ってこんな感じか

 use Data::Page::Navigation;
 
 my $p = Data::Page->new(
                         1000,
                         10,
                         8
                        );
 
 $p->pages_per_navigation(11);
 print join ' | ', $p->pages_in_navigation;
 
 # 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13

pages_in_navigation(11) としても同様の結果になるが、あまりおすすめでしない。
pages_per_navigation に値を設定しておかないと、first_navigation_page と last_navigation_page で pages_per_navigation のデフォルト値 (10) が利用されてしまうので。

ウノウラボの方は PEAR::Pager そのままではできないことをやろうというのが本題のようだが、Perl だと、こっから先は TT にまかせることが多いと思うので、言語によって色々ですな

See Also

Copyright © 髭。/ Hugo + hugo-book