sub pageNumbers { $total_pages = int (($#matches) / $total_records_page); #Integer division $remainder = ($#matches) % $total_records_page; if ($remainder) { $total_pages++; } if($total_pages) { print <<"END";
END print "Page "; for $i (1 .. $total_pages) { if ($i == $page) { print "$i"; } else { print "$i"; } if ($i != $total_pages) { print " | "; } } print "
\n"; } } exit(0);