岩家.net

岩家 の改装作業がようやくひと段落しました．といっても，ぶろぐ のエントリへのリンクや写真くらいしか内容はありませんが．．．微調整を含め，その辺は今後ということで．

とりあえずは，過去の写真を移植していきますかね．今風 （？） にタグづけとかもやってますのでよろしければ．

前回の交換から 3年ほど放置状態でした．セルの元気が明らかになくなってきたので，さすがに交換せないかんな，と．（まぁそう思ってから 3か月以上経ってますが．．．）

オートバックスでは，バッテリーを購入した場合交換前の廃バッテリーを引き取ってくれます．というわけで，最寄りの店舗で購入 → そのまま駐車場で交換 → 廃バッテリー引き取り，でした．この間 5分ほど，ですかね．

なお，今月下旬には車検が控えているため，書類を揃えたり，予約を入れたり，車高を上げたり，ハミ出ていないタイヤを履かせたり，穴開きマフラーを交換したり．．．などなど，やることだらけです．

ページナビゲーションを実装するにあたっての脳内整理的メモ．Perl っぽい表記になってますので，頭の中で適当に置き換えてください．

$N 個 （インデックスは 0, 1, …, $N-1） のオブジェクト （例えば写真とか） を，$n 個ずつ表示させる場合のページナビゲーションについて考えます．

この場合の全ページ数 $P は

$P = int( $N / $n ) + 1;

となります．

$p ページ目 （1 ≤ $p ≤ $P） におけるページナビゲーションな HTML 文字列を返すサブルーチン pagenavi を次のように定義できます．

# $pagenavi = pagenavi( $N, $n, $p ); な感じで
sub pagenavi {
  my ( $N, $n, $p ) = @_;
  my $html = '';
  my $P = int( $N / $n ) + 1;
  for( my $i = 1; $i < = $P; $i++ ) {
    if( $i == $p ) {
      # 現在のページの処理：リンクを張らないとか，文字を大きくするとか
      $html .= qq{<span class="currentpage">$i</a>};
    }
    else {
      # 他のページの処理：リンクを張るとか
      $html .= qq{<a href="?page=$i">$i</a>};
    }
  }
  return $html;
}

余談ですが，$p ページ目に表示させるべきオブジェクトのうち，最初のインデックス $i0は

$i0 = ( $p - 1 ) * $n;

で得られます．したがって，

for( my $i = $i0; $i < $i0 + $n; $i++ ) {
  my $obj = $objlist[$i];
  ...
}

のようにすることで，オブジェクトリストのうちの該当部分のみを処理することができます．また，SQL でデータベースからデータを取り出す場合には，

SELECT ...
  FROM ...
  WHERE 1
  LIMIT $i0, $n;

などとすればいいでしょう．

さて，先の pagenavi では，オブジェクトの数 $N の増加に伴ってページ数 $P も増加するため，扱いづらいとかスペースを取るとかの不都合が出てきます．

記事の続き