"My Perl script works on my server but it does not work on your server."

MySQL Connection

Sometimes, you may be wondering how to make your Perl script connect to the database that you have just got from us. By default, we set up your database in the same server as the web server. In addition, you might receive information like this from us:

===========================================================
MySQL ACCOUNT LOGIN INFO
===========================================================
Host : localhost
Database name : mydatabase_db
Username : mydbuser
Password : mydbpass
===========================================================

There are many ways to connect to the database. Here is just one example. The below is a simple example of how you can connect to your database, using the information we gave you above, do a simple query, and display the results in a table.

#!/usr/local/bin/perl

use DBI;

print <<END;
Content-type: text/html

<html>
<head>
<title>Example of Perl calling MySQL</title>
</head>

<body bgcolor="white">

END

# database information
$db="mydatabase_db";
$host="localhost";
$userid="mydbuser";
$passwd="mydbpass";
$connectionInfo="dbi:mysql:$db;$host";

# make connection to database
$dbh = DBI->connect($connectionInfo,$userid,$passwd);

# prepare and execute query
$query = "SELECT * FROM mytable WHERE Age > 30 ORDER BY Name";
$sth = $dbh->prepare($query);
$sth->execute();

# assign fields to variables
$sth->bind_columns(\$ID, \$Name, \$Age);

# output name list to the browser
print "Names in the mytable:<p>\n";
print "<table>\n";
while($sth->fetch()) {
print "<tr><td>$Name<td>$Age\n";
}
print "</table>\n";
print "</body>\n";
print "</html>\n";

$sth->finish();

# disconnect from database
$dbh->disconnect