「Data::Pageset」の版間の差分
提供: dsk's note
(ページの作成:「<syntaxhighlight lang="perl"> use CGI; use Data::Pageset; my $page = $obj->param('p'); $page ||= "1"; my $total_entries=@files; my $current_page=$page; my $entries_per_p...」) |
細 |
||
| 1行目: | 1行目: | ||
| + | @hogeには、なんらかのデータが入っているという前提で... | ||
| + | |||
<syntaxhighlight lang="perl"> | <syntaxhighlight lang="perl"> | ||
use CGI; | use CGI; | ||
| 5行目: | 7行目: | ||
$page ||= "1"; | $page ||= "1"; | ||
| − | my $total_entries=@ | + | my @hoge; |
| + | |||
| + | my $total_entries=@hoge; | ||
my $current_page=$page; | my $current_page=$page; | ||
my $entries_per_page =15; | my $entries_per_page =15; | ||
| 42行目: | 46行目: | ||
} | } | ||
| − | </syntaxhighlight | + | </syntaxhighlight> |
2015年6月7日 (日) 03:14時点における版
@hogeには、なんらかのデータが入っているという前提で...
use CGI; use Data::Pageset; my $page = $obj->param('p'); $page ||= "1"; my @hoge; my $total_entries=@hoge; my $current_page=$page; my $entries_per_page =15; my $pages_per_set = 10; my $page_info = Data::Pageset->new({ #全ての要素数 'total_entries' => $total_entries, #1ページあたりの表示数 'entries_per_page' => $entries_per_page, #現在のページ 'current_page' => $current_page, #1ページあたりのページング数 'pages_per_set' => $pages_per_set, #ページングを表示ページ幅を固定するかスライドするか slide or fixed 'mode' => 'slide', }); #前へ if ($page_info->previous_page) { print "<a href='?p=" . $page_info->previous_page . "'><< 前へ</a>\n"; } #ページ別リンク foreach my $page (@{$page_info->pages_in_set()}) { if($page == $page_info->current_page()) { print " <strong>$page</strong>\n "; } else { print " <a href='?p=" . $page . "'>$page</a>\n "; } } #次へ if ($page_info->next_page) { print "<a href='?p=" . $page_info->next_page . "'>次へ >></a>\n"; }
