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: #!/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;
