■2003-11-22 三連休じゃないけど三連休
* example.com
例に使うドメインの例 (原文)。あー、予約されているんだ（perl質問箱より）。
* [Perl] Data::PageとData::Pageset
ページング処理を簡単にするモジュールData::Pageとそれを継承したData::Pageset。
use Data::Pageset;
my $total = 100; # 全データ
my $per_page = 5; # 1頁毎のデータ数
my $current_page = 11; # 現在のページ
my $pages_per_set = 5; # 一覧表示数
my $page = Data::Pageset->new({
'total_entries' => $total,
'entries_per_page' => $per_page,
'current_page' => $current_page,
'pages_per_set' => $pages_per_set,
});'
print "----\n"; # 現在のページ上のデータ番号
print $page->first, '-', $page->last, "\n";
print "----\n"; # 51-55 を表示
for(@{ $page->pages_in_set }){
print $_, ","; # 11,12,13,14,15,
}
# 現在のページのデータだけ表示
my @data = map{ [$_, $_ * 2] } 1..100;
for($page->splice(\@data)){
print $_->[1], "\n";
} # 102 104 106 108 110
今まで自前で作ってましたよ……
[]
