NDSU CS Department Wiki

This is an old revision of the document!

---

use strict;
use DBI qw(:sql_types);

# Variables
my $db_conn_string;                                 # MySQL db connection string
my $db_name = "dbname";                             # Database name
my $db_user = "remoteUser";                         # Database user
my $db_pwd  = "bigsecurepassword";                  # Database pwd
my $db_host = "host.cs.ndsu.nodak.edu";             # Database server host name
my $db_port = "3306";                               # Database connection port
my $conn;                                           # MySQL connection
my $stmt;                                           # MySQL statement

# Connect to MySQL database

$db_conn_string = "dbi:mysql:$db_name:$db_host:$db_port";

# Connect to db on Hrothgar
if ($conn = DBI->connect($db_conn_string, $db_user, $db_pwd))
{
  # Prepare and execute an SQL statement
  $sth = $dbh->prepare("SELECT table_name.column_name
                        FROM table_name
                        WHERE table_name.field=something");
  $sth->execute;

  # retrieve the results

  print "Query Output \n";
  while(my $ref = $sth->fetchrow_hashref() ) {
	print $ref->{'column_name'};
	print "\n";
  }
}
else
{
  # Couldn't connect to MySQL db
}