Solved

Previous/Next Links in Perl Script - MySQL Select

Posted on 2009-04-08
2
452 Views
Last Modified: 2013-12-25
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

0
Comment
Question by:mcantera25
2 Comments
 
LVL 39

Accepted Solution

by:
Adam314 earned 500 total points
ID: 24126642
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
 

Author Closing Comment

by:mcantera25
ID: 31568356
Thanks so much, especially for using "real" code. Made it really helpful and easy to implement.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

It is becoming increasingly popular to have a front-page slider on a web site. Nearly every TV website,  magazine or online news has one on their site, and even some e-commerce sites have one. Today you can use sliders with Joomla, WordPress or …
This article will show, step by step, how to integrate R code into a R Sweave document
The viewer will learn how to create a basic form using some HTML5 and PHP for later processing. Set up your basic HTML file. Open your form tag and set the method and action attributes.: (CODE) Set up your first few inputs one for the name and …
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now