Creating dynamic names for variables

[Kelicula]

Hello all, I need to create a certain number of variables depending on a result set from a database.

I only want to display 20 records per page, and I would like to have those page "markers" at the botton of the page for NEXT, PREVIOUS, and the links to the actual pages eg: 1, 2, 3 etc..

So far what I have is:

#!c:/Perl/bin/perl
 
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
 
use DBI;
use CGI qw(simple);
 
 
#-------------------
# Configure.........
 
$| = 1;
my $q = new CGI;
print $q->header;
my $database = 'complete';
my $handle = '';
my $password = '';
my %attr = ( RaiseError => 0, PrintError => 0 );
 
 
#-------------------
# Application.......
 
my $dbh = DBI->connect("DBI:mysql:$database:localhost:3306", $handle, $password, \%attr) || listErr( $DBI::errstr );
 
my $sth = $dbh->prepare(qq{ SELECT * FROM lamtest });
 
$sth->execute || listErr( $sth->errstr );
 
my $news = $sth->fetchall_arrayref({});
 
my $len = @{$news} / 20; # 20 records per page.
 
if($len =~ /\./){  # If resultset is NOT evenly divisible 
$len =~ s/\d+\.*$//;  # Chop off the decimal and everything else to the right.
$len += 1;          # add one to the quotient to allow for page with less then 20 rec
}
 
print $len;   # this now equals how many slices there are.  in $news array.
              # Also equals how many pages will be in the results.
 
              # Need to set up splices for each page...
my $wts;      # this will equal the x param, and/or "where to start splicing.
              # will need $lem number of these...
 
my $num = 0;
 
for(1..$len){
 
$wts+$_ = $num;
 
$num += 20;
}
 
 
my $point = $q->param('x'); 
# these will be embedded in the page links..
# will need more than one but just to give you the idea
 
my @send = splice( @{$news},$num, 20);
 
 
#--------------------------------
# Subroutines.............
 
sub listErr {
my $e = shift;
print "$e";
}
 

I can't seem to get the value in $_ to add to $wts..like $wts1, $wts2 etc...

I have also tried

 
"$wts"."$_" = $num;
 

and such...

Anyone know how to do this??
Or a better way to do ALL this??


Thank you!!

(please)

[numberwhun]

Is $len getting set correctly? When I try the for loop you are using, it works fine.

Regards,

Jeff

[KevinADC]

when you want dynamic variable names in perl you use a hash.

[eWish]

There are some modules on CPAN that will do pagination.

Some of them do SQL
Class::DBI::Factory::List
HTML::Paging::SQL


--Kevin

[Kelicula]

Thank you everyone!!!

I have resolved this issue.
I transfered everything to an array whose number of elements equal the number of pages, and the values within them are the splice settings...

#!c:/Perl/bin/perl
 
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
 
use DBI;
use CGI qw(simple);
 
 
#-------------------
# Configure.........
 
$| = 1;
my $q = new CGI;
print $q->header;
my $database = 'complete';
my $handle = '';
my $password = '';
my %attr = ( RaiseError => 0, PrintError => 0 );
 
 
#-------------------
# Application.......
 
my $dbh = DBI->connect("DBI:mysql:$database:localhost:3306", $handle, $password, \%attr) || die "seeDB: $DBI::errstr";
 
my $sth = $dbh->prepare(qq{ SELECT * FROM lamtest });
 
$sth->execute || listErr( $sth->errstr );
 
my $news = $sth->fetchall_arrayref({});
 
 
# begin experiment.
 
my $len = @{$news} / 20;
 
if($len =~ /\./){
$len =~ s/\d+\.*$//;
$len += 1;
}
 
# $len now equals how many slices there are.  in $news array.
# Also equals how many pages will be in the results.
 
# Need to set up splices for each page...
# this will equal the x param, and/or "where to start splicing".
# will need $lem number of these...
 
my @wts;
my $num = 0;
 
for(1..$len){
 
$wts[$_] = $num;
$num += 20;
}
 
# @wts is now an array that holds the number of pages=elements and each element contains the
# number at which to start the splice of $news.
# Now create an html block representing the "controls" for this mechanism.
 
my $y = $q->param('x'); 
# holds the  previous position
# for use later in links
 
my $links = "<a href='browsenews.cgi?x=".($y-20)."'>PREVIOUS</a> <=&nbsp\;&nbsp\;";
 
 
for(1..$#wts){
 
$links .= "<a href='browsenews.cgi?x=$wts[$_]'>$_</a>,&nbsp\; ";
 
}
 
$links .= "=> <a href='browsenews.cgi?x=".($y+20)."'>NEXT</a>";
 
 
 
print $links;
 
 
 
sub listErr {
my $e = shift;
print "$e";
}
 
 

Now I need to check for param('x') and such (if the results are less than 20) but Links prints out properly, so I think I got it.

Thanks!!