NDSU CS Department Wiki

User Tools

Site Tools

Trace:
classes:general:dbsamples:perl_mysql

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
classes:general:dbsamples:perl_mysql [2020/10/23 22:46] – localadminclasses:general:dbsamples:perl_mysql [2021/09/17 22:27] (current) – localadmin
Line 1: Line 1:
 +====== Perl example for MySQL database connection ======
 +
 <code> <code>
 use strict; use strict;
Line 17: Line 19:
 $db_conn_string = "dbi:mysql:$db_name:$db_host:$db_port"; $db_conn_string = "dbi:mysql:$db_name:$db_host:$db_port";
  
-# Connect to db on Hrothgar+# Connect to db 
 if ($conn = DBI->connect($db_conn_string, $db_user, $db_pwd)) if ($conn = DBI->connect($db_conn_string, $db_user, $db_pwd))
 { {
   # Prepare and execute an SQL statement   # Prepare and execute an SQL statement
-  $stmt = $dbh->prepare("SELECT table_name.column_name +  $stmt = $conn->prepare("SELECT table_name.column_name 
-                         FROM table_name +                          FROM table_name 
-                         WHERE table_name.field=something");+                          WHERE table_name.field=something");
   $stmt->execute;   $stmt->execute;
  
-  # retrieve the results+  # Retrieve the results
  
   print "Query Output \n";   print "Query Output \n";
Line 36: Line 38:
 else else
 { {
-  # Couldn't connect to MySQL db+  # Error! Couldn't connect to MySQL db
 } }
 </code> </code>
classes/general/dbsamples/perl_mysql.1603493195.txt.gz · Last modified: by localadmin