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

>>阅读原文<<