Perlゼミ

  1. Perl
  2. モジュール
  3. here

Data::Page::Navigation - ページナビゲーションの実装

Data::Page::NavigationモジュールはData::Pageに機能を追加するモジュールで、ページナビゲーション用のデータを簡単に作成することができます。

use strict;
use warnings;

use Data::Page;
use Data::Page::Navigation;

my $total_entries = 180;
my $entries_per_page = 10;
my $current_page = 1;
my $pager = Data::Page->new($total_entries, $entries_per_page, $current_page);

# ページナビゲーションの個数を設定
$pager->pages_per_navigation(10);

# ページナビゲーション用のデータを取得
my @pages = $pager->pages_in_navigation;

# 1 2 3 4 5 6 7 8 9 10
print "@pages\n";

# 現在のページを変更
$pager->current_page(9);
my @pages2 = $pager->pages_in_navigation;

# 5 6 7 8 9 10 11 12 13 14
print "@pages2\n";

メソッド

pages_per_navigation

ひとつのページに表示されるページの数を設定します。デフォルトは10です。

my $pages_per_navigation = $pager->pages_per_navigation;
$pager->pages_per_navigation(15);

pages_in_navigation

このメソッドは、ページナンバーのリストを返却します。

my @pages = $pager->pages_in_navigation;
my $pages = $pager->pages_in_navigation;

first_navigation_page

最初のナビゲーションページを返します。

my $first_page = $pager->first_navigation_page;

last_navigation_page

最後のナビゲーションページを返します。

my $last_page = $pager->last_navigation_page;
Perlの書籍
  • 業務に役立つPerl

    ログ解析など日本語を含むテキスト処理の実践!
    この私、Perlゼミの作者が執筆しています。
    ご購入、口コミ歓迎。
  • Perlの書籍 »
自己紹介
木本裕紀

「こっ、こしゃくな。
このPerオタクめ~!」

Twitter
フォロー、いいね、リツート、コメント歓迎

Youtube

チャンネル登録、いいね、コメント歓迎

kimoto.yuki@gmail.com
応援メッセージ、質問、間違い報告歓迎

木本システム株式会社
ご紹介キャンペーン実施中です。契約金額の10%をご紹介料としてお支払い。

(例)30万円のシステム開発委託契約が、1年続いたら、36万円がもらえる!!!