MySQL-Perl Connectivity
Connect to a MySQL server using Perl.
In order to do that you'll have to use the DBI module in Perl.
Below you will find an example code.
Code: PERL
#!/usr/local/ActivePerl-5.6/bin/perl --
print "Content-type: text/html\n\n";
print "<html><head><title>Database Test Page</title></head><body bgcolor=black text=yellow>";
use DBI;
#dbh=DBI->connect("DBI:mysql:dbname:server","username","password");
$dbh=DBI->connect("DBI:mysql:s_pradeep:mysql","s_pradeep","54545");
$sth=$dbh->prepare("select * from users order by name");
$sth->execute;
$numrows=$sth->rows;
@col_arr=("white","#cccccc");
print "<table border=1 bordercolor=white style=\"color:#000000\">";
print "<tr bgcolor=aqua><th>ID</th><th>Name</th><th>Email</th><th>Sex</th><th>Date of
Birth</th><th>City</th><th>Country</th><th>Username</th><th>Password</th></tr>";
while(@arr=$sth->fetchrow_array)
{
print "\n<tr bgcolor=\"$col_arr[0]\">\n";
for($i=0;$i<(@arr-1);$i++)
{
print "\t<td>$arr[$i]</td>\n";
}
print "</tr>";
unshift(@col_arr,$col_arr[1]);
pop(@col_arr);
}
print "</table></body><br>\n\n";
print "<font color=red>Total number of rows affected : <b>$numrows</b></font>";
exit;
|
