本文目录一览：

windows下 perl 连接 mysql
如何使用perl 5.18 连接mysql 数据库
通过dbi使用perl连接mysql数据库的方法
perl连接mysql
perl环境下安装mysql的数据库驱动的问题
Perl使用MySQL数据库的语法是什么？

windows下 perl 连接 mysql

先在CMD方式下运行：安装DBI:mysql 在MYSQL配置正确的情况下就可以开始写了，以下是例子：

#!/usr/bin/perl
use DBI;
$user = "root";
$password = "mscnyhlplayon";
$database = "flash"; #数据库
$telbase = "game_flash"; #表
my $dbh = DBI->connect("DBI:mysql:$database", $user, $password) or die "无法连接数据库: " . DBI->errstr;
$sth = MySQL_Query("select * from game_flash where id = 46");
$row = $sth->fetchrow_arrayref();
$test_txt = $row->[4];
#断开连接
$dbh->disconnect;
print "$sth<br><br>$test_txt<br><br>$row";
print "/BODY/HTML";
sub MySQL_Query {
    my ($class, $command) = @_;
    $sth = $dbh->prepare("$class") || die Lost($class, $dbh->errstr);
    $sth->execute() || die Lost($class, $dbh->errstr);
    return ($sth);
}
sub Lost {
    my ($errsA, $errsB) = @_;
    print "$errsA<br><br>$errsB";
    print "/BODY/HTML";
    exit;
}

如何使用perl 5.18 连接mysql 数据库

用DBI就可以给你段代码：

use DBI;
my $dbname = "test";
my $location = "192.168.1.115";
my $port = "3306"; #这是mysql的缺省
my $database = "DBI:mysql:$dbname:$location:$port";
my $db_user = "root";
my $db_pass = "123456";
my $dbh = DBI->connect($database, $db_user, $db_pass);
my $sql = "SELECT * FROM tablename";
my $sth = $dbh->prepare($sql); #准备
$sth->execute() or die "无法执行SQL语句:$dbh->errstr"; #执行
while (@data = $sth->fetchrow_array()) { #fetchrow_array返回row
    print "Email:$data[0]\t Telephone:$data[1]\n";
}
$sth->finish();
$dbh->disconnect; #断开数据库连接

通过dbi使用perl连接mysql数据库的方法

通过使用DBI，用Perl可以很容易的连接到mysql数据库: 代码如下：

#!/bin/perl
use DBI;
# Connect to target DB
my $dbh = DBI->connect("DBI:mysql:database=eygle;host=localhost", "username", "password", {'RaiseError' => 1});
# Insert one row
my $rows = $dbh->do("INSERT INTO test (id, name) VALUES (1, 'eygle')");
# query
my $sqr = $dbh->prepare("SELECT name FROM test");
$sqr->execute();
while (my $ref = $sqr->fetchrow_hashref()) {
    print "$ref->{'name'}\n";
}
$dbh->disconnect();

perl连接mysql

下载以后需要安装，安装方法可以参考文章：安装好了就可以使用了，例子程序如下：

#!/usr/bin/perl
use DBI;
my $dbname = "db_name";
my $location = "localhost";
my $port = "3306"; #这是mysql的缺省
my $database = "DBI:mysql:$dbname:$location:$port";
my $db_user = "root";
my $db_pass = "db_password";
my $dbh = DBI->connect($database, $db_user, $db_pass);
my $sql = "SELECT first_name,last_name FROM \$table ORDER BY first_name";
my $sth = $dbh->prepare($sql);
#结果保存在$sth中
$sth->execute() or die "无法执行SQL语句:$dbh->errstr";
$dbh->disconnect; #断开数据库连接

补充：拷贝文件到SYSTEM32不是最好的办法，其实在环境变量PATH里面加入MYSQL的DLL文件目录即可。

perl环境下安装mysql的数据库驱动的问题

用ppm装啊。。。不行的话下载到本地然后路径指为本地再装。。或者就这样：

use DBI;
$self->{DBREF} = DBI->connect("DBI:mysql:database=$database;host=$host", $user, $password);

Perl使用MySQL数据库的语法是什么？

注意看下面“参考资料”中给你的链接。

use DBI;
$dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect($dsn, $user, $password);
$drh = DBI->install_driver("mysql");
@databases = DBI->data_sources("mysql");
or
@databases = DBI->data_sources("mysql", {"host" => $host, "port" => $port, "user" => $user, "password" => $pass});
$sth = $dbh->prepare("SELECT * FROM foo WHERE bla");
or
$sth = $dbh->prepare("LISTFIELDS $table");
or
$sth = $dbh->prepare("LISTINDEX $table $index");
$sth->execute;
$numRows = $sth->rows;
$numFields = $sth->{'NUM_OF_FIELDS'};
$sth->finish;
$rc = $drh->func('createdb', $database, $host, $user, $password, 'admin');
$rc = $drh->func('dropdb', $database, $host, $user, $password, 'admin');
$rc = $drh->func('shutdown', $host, $user, $password, 'admin');
$rc = $drh->func('reload', $host, $user, $password, 'admin');
$rc = $dbh->func('createdb', $database, 'admin');
$rc = $dbh->func('dropdb', $database, 'admin');
$rc = $dbh->func('shutdown', 'admin');
$rc = $dbh->func('reload', 'admin');

perl创建mysql数据库,perl mysql