Perl for accessing MySQL
Name of table in example is: quizscores
Columns in table are: lname, fname, finalper, finalsum, quiz1per, quiz1cor, quiz2per, quiz2cor, idnum
#!/usr/bin/perl
# Grab the form data (from HTLM page) and put it in a hash
require 'subroutines.lib';
require 'subparseform.lib';
&Parse_Form;
$idnum = $formdata{idnum};
# connect to the database through DBI and get quiz-takers record
$dbh = DBI->connect("DBI:mysql:loginId", "loginId", '123456');
$cursor = $dbh->prepare("select lname, fname, finalper, finalsum, quiz1per, quiz1cor, quiz2per, quiz2cor from quizscores where idnum = $idnum");
$cursor->execute;
# connect to the database through DBI and update quiz-takers Quiz1 score
$dbh = DBI->connect("DBI:mysql:loginId", "loginId", '123456');
$cursor_up = $dbh->prepare("update quizscores set quiz1cor = $score where idnum = $idnum");
$cursor_up->execute;
$cursor_up = $dbh->prepare("update quizscores set quiz1per = $percent where idnum = $idnum");
$cursor_up->execute;
# connect to the database and get quiz-takers Quiz1cor & Quiz2cor
$dbh = DBI->connect("DBI:mysql:loginId", "loginId", '123456');
$cursor_getq12cor = $dbh->prepare("select quiz1cor, quiz2cor from quizscores where idnum = $idnum");
$cursor_getq12cor->execute;
while ( @row = $ cursor_getq12cor->fetchrow_array )
{
$quiz1cor = $row[0];
$quiz2cor = $row[1];
}
$finalsum = $quiz1cor + $quiz2cor;
$finalper = $finalsum / 20 * 100;
# connect to the database and update quiz-takers Final score
$dbh = DBI->connect("DBI:mysql:loginId", "loginId", '123456');
$cursor_up = $dbh->prepare("update quizscores set finalsum = $finalsum where idnum = $idnum");
$cursor_up->execute;
$cursor_up = $dbh->prepare("update quizscores set finalper = $finalper where idnum = $idnum");
$cursor_up->execute;
Return to Top of Page
