|
各位好!我是新来的,perl的初学者。
我用perl写一个分页显示程序时,遇到了以下问题:
我用my $page = q->param("page"); 来得到得到page参数,以判断显示哪一页,在使用$page的时候出了问题,我用以下语句来获得每页显示行数在数据文件中的位置,
if ($page eq ""){
my $min=1;
#设定首页的初始值page为页数,$min为数据文件中的第一行数据信息,
my $max=$rowsPerPage;
#$max为该页最末一行显示的数据文件中的数据信息行
$page=1;
}
if($page ne ""){
$min= $rowsPerPage*($page-1)+1;
$max= $page*$rowsPerPage;
}
编译的错误是这样的:
Number found where operator expected at pf.cgi line 32, near "$min= $rowsPerPage*($page-1"
(Might be a runaway multi-line -- string starting on line 25)
(Missing operator before 1?)
syntax error at pf.cgi line 32, near "$min= $rowsPerPage*($page-1"
Unmatched right curly bracket at pf.cgi line 34, at end of line
syntax error at pf.cgi line 34, near "}"
Execution of pf.cgi aborted due to compilation errors.
应该是说在运算符应该出现的地方出现了数字,好像还把$page当成字符串而非整数,请问$page是否应该强制转换为整数,应该如何解决? |
|