perl 怎么连接mysql??
1。我首先安装ActivePerl-5.8.2.808-MSWin32-x86.msi到c:\perl
2。安装MYSQL:mysql-5.0.0-alpha-win到c:\mysql
3。下载DBI.zip,解压,安装 ppm install DBI.ppd
4。运行mysqld.exe,运行mysql.exe,建TABLE
show databases;
create database arden;
use arden;
show tables;
create table shop (id int(3), name char(20));
load data local infile "C:\\Arden\\mysql\\data.txt" into table shop;
5。编写perlsql.pl
#!/usr/bin/perl
use DBI;
$database = "arden";
$user = "root";
$password = "";
my $sql_q = "SHOW COLUMNS FROM shop";#shop is a table
$dbh = DBI->connect("DBI:mysql:$database", $user, $password);
my $sth = $dbh->prepare($sql_q);
$sth->execute;
while (@row = $sth->fetchrow_array)
{
print"Field Type Null Key Default Extran";
print"---------------------------------------------------------------n";
print"$row[0] $row[1] $row[2] $row[3] $row[4] $row[5]n";
}
$dbh->disconnect;
6。运行perlsql.pl后出现的错误信息:
install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains:
C:/Perl/lib C:/Perl/site/lib .) at (eval 1) line 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: ExampleP, Proxy.
at C:\Arden\mysql\perlsql.pl line 7
Press any key to continue...