Previous/Next Links in Perl Script - MySQL Select

I'm setting up a simple guestbook in Perl and want to include Next/Previous links at the bottom of the SQL data table.

This was covered in two prior E-E posts...
/Programming/Languages/Scripting/Perl/Q_20435798.html
/Programming/Languages/Scripting/Perl/Q_10311853.html

...but I can't follow the pseudocode well enough to apply it.

It seems logical that I'll need a combo of IF (Perl) and LIMIT (SQL), but can anyone take a closer look and advise?

Thanks!
#!/usr/bin/perl
 
$table = "guestbook";
 
<<DBI connections and modules/libraries>>
 
sub guestbook {
$count = 1;
  print "<TABLE BORDER=1>\n";
  print "<TR><TD>No.</TD><TD>Name</TD><TD>Date</TD>";
  print "<TD>Email</TD><TD>Message</TD></TR>\n";
  &run_statement("select * from $table;");
  while (($name, $entry_date, $email, $message) = $sth->fetchrow) {
    print "<TR><TD>$count</TD><TD>$name</TD><TD>$entry_date</TD>";
    print "<TD>$email</TD>";
    print "<TD>$message</TD></TR>\n";
  $count++;
  }
  print "</TABLE>\n";
}

Open in new window

mcantera25Asked:
Who is Participating?
 
Adam314Connect With a Mentor Commented:
You will need a way for the user to select the next page, then an update to your SQL statement to only get some of the results.  Because records are not normally ordered, the only to ensure that the records you get are the right ones will be to include an ORDER BY in your SQL statement.  Something like so:
sub guestbook {
  #This needs to come from the "first" field below
  #It should initialize to 0
  my $first = shift;
$count = 1;
  print "<TABLE BORDER=1>\n";
  print "<TR><TD>No.</TD><TD>Name</TD><TD>Date</TD>";
  print "<TD>Email</TD><TD>Message</TD></TR>\n";
  &run_statement("select * from $table ORDER BY id LIMIT $first,10;");
  while (($name, $entry_date, $email, $message) = $sth->fetchrow) {
    print "<TR><TD>$count</TD><TD>$name</TD><TD>$entry_date</TD>";
    print "<TD>$email</TD>";
    print "<TD>$message</TD></TR>\n";
  $count++;
  }
  print "</TABLE>\n";
  print "<a href=\"link_to_this_page.pl?first=" . ($first+10) . "\">Next page</a>\n";
}

Open in new window

0
 
mcantera25Author Commented:
Thanks so much, especially for using "real" code. Made it really helpful and easy to implement.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.