Perl入門ゼミ

テキスト処理、Linuxサーバー管理、Web開発なら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とはテキスト処理の記述性とパフォーマンスに優れ、正規表現が言語に組み込まれているプログラミング言語です。
  • Linuxサーバーでのフィルタリングプログラム、複数行の文字列を処理、ファイル内容の検索・置換などが得意
  • Perlはgitopensslなど広く普及したUnix/Linuxミドルウェアの補助ツールとして採用実績あり。後方互換性とポータビリティの高さがひとつの理由と推測。
  • 大量のテキストを扱うWeb開発も得意。ロングテールSEOを意識したWebサイト、アドテクやソーシャルゲームでの50ms以内のJSONの生成など。