トップ «前の日記(■2003-11-20) 最新 次の日記(■2003-11-24)» 編集

どんぞこ日誌

2003|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|07|08|12|
2007|01|04|08|12|
2008|01|02|03|04|06|07|08|10|11|12|
2009|01|02|04|05|06|07|08|09|11|12|
2010|01|03|04|07|08|10|11|12|
2011|01|02|03|04|05|06|07|08|10|12|
2012|01|02|03|05|06|07|08|09|10|
2013|01|02|07|08|09|
2014|08|09|
2015|08|
2016|06|07|12|
2017|01|03|08|
2018|03|
2022|03|
2023|03|
2024|02|

同人関連(どんぞこ楽屋) | 旧い雑文   


■2003-11-22 三連休じゃないけど三連休

* example.comB!

例に使うドメインの例 (原文)。あー、予約されているんだ(perl質問箱より)

* [Perl] Data::PageとData::PagesetB!

 ページング処理を簡単にするモジュール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
今まで自前で作ってましたよ……
[]