Perl源码:分页显示CGI程序范例

  sub search{ $l=0;$show=15;#设定每页显示数据的行数。open (output,"sj.txt");#打开数据文件sj.txt@count=<output>;close(output);$w=@count;#获得sj.txt文件中的数据信息总数$w. if ($page eq ""){ $min=1; $max=$show; $page=1; }#设定首页的初始值:$p

>>阅读原文<<