となります. $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