mysql perl connect_Perl Connect to MySQL

Things we need to do before we continue our work:

Make sure you install the right DBI.

Without DBI, you may encounter eorrors like: "Can't locate mysql.pm in @INC....."

Connect to Mysql and return value of data.

#!/usr/bin/perl

use mysql;

# HTTP HEADER

print "Content-type: text/html \n\n";

# MYSQL CONFIG VARIABLES

$host = "localhost";

$database = "test";

$tablename = "test_set";

$user = "";

$pw = "";

# PERL MYSQL CONNECT()

$connect = Mysql->connect($host, $database);

# SELECT DB

$connect->selectdb($database);

# DEFINE A MySQL QUERY

$myquery = "SELECT * FROM $tablename";

# EXECUTE THE QUERY

$execute = $connect->query($myquery);

$rownumber = $execute->numrows();

$fieldnumber = $execute->numfields();

# PRINT THE RESULTS

print "row:".$rownumber."\n";

print "col:".$fieldnumber."\n";