for ($pagesu = 1; $pagesu <= $pejisu; $pagesu++) {
print qq(<a href="$script?page=$pagesu">$pagesu</a>/);
}
print qq(全$pageViewページ);open(IN, $logfile);
@log_kazu = <IN>;
close(IN);
$yousosuu = @log_kazu;
$pejisu = &ceil($yousosuu / $pageView);
for($pagesu = 1; $pagesu <= $pejisu; $pagesu++) {
print qq(<a href="$script?page=$pagesu">$pagesu</a>/);
}
print qq(全$pejisuページ);
#切り上げ関数
sub ceil {
local($num) = @_;
local($val) = 0;
if($num > 0 && $num != int($num)) {
$val = 1;
}
return int($num + $val);
}foreach(0..9){
print $_;
}