Perl Connect to MySQL
[*]Things we need to do before we continue our work:
Make sure you install the right DBI.
Perl DBI for Mysql : http://www.cs.wcupa.edu/docs/mysqlEZinfo/perl_dbi.html
Install Perl DBI : http://cpansearch.perl.org/src/RUDY/DBD-mysql-2.9008/INSTALL.html#windows
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";
页:
[1]