my $dbh = DBI->connect( "dbi:xxx:xxx", "xxxx", 'xxxx');
my $sth = $dbh->prepare('SELECT title, url FROM fd_ent
+ries ORDER BY timestamp DESC LIMIT 200');
$sth->execute();
# create a callback subroutine to generate the data to be paged
my $get_data_sub = sub {
my ($offset, $rows) = @_;
#my @return_array;
my $return_array = $sth->fetchrow_array();
for (my $x = 0; $x < $rows; $x++) {
push(@return_array, [ $data[$offset + $x]{title},
$data[$offset + $x]{url}
]
);
}
return \@return_array;
}
;
I know that is way off, but I don't how how far.Thank you. |