cgi网页显示mysql数据库数据_请问perl cgi 分页显示 mysql数据库

各位大侠，我用perl写了一个连接数据库的代码，现在有的数据库有1000多条，同时显示在一个网页上速度太慢，请问如何分页显示呢，每页显示100条，然后每页有链接，请高手指教#!/usr/bi...

各位大侠，我用perl写了一个连接数据库的代码，现在有的数据库有1000多条，同时显示在一个网页上速度太慢，请问如何分页显示呢，每页显示100条，然后每页有链接，请高手指教

#!/usr/bin/perl

use strict;

use DBI;

use CGI;

print "Content-type:text/html\n\n";

print<

windows环境变量

BEGIN

my $cgi=new CGI;

my $database=$cgi->param("database");

# Connect to target DB

my $dbh = DBI->connect("DBI:mysql:database=$database;host=localhost","root","4114", {'RaiseError' => 1});

# query

my $content=100;

my $page=1;

my $sqr = $dbh->prepare("SELECT * FROM alter_splicing limit $content");

$sqr->execute();

print "

print "

est_id\n";

print "

position\n";

print "

sbjct\n";

print "

est_numbers\n";

print "

type\n";

print "

geneid\n";

while(my $ref = $sqr->fetchrow_hashref()) {

my $query=$ref->{'est_id'};

my $sbjct=$ref->{'sbjct'};

print "

$query\n";

print "

$ref->{'position'}\n";

print "

$sbjct\n";

print "

$ref->{'est_numbers'}\n";

print "

$ref->{'type'}\n";

print "

$ref->{'geneid'}\n";

}

print "

";

$dbh->disconnect();

print<

END

可否帮忙改一下

展开