Win32环境下 Perl DBI安装

环境建立

安装MySQL  5.0
Win32环境下安装Active Perl,默认安装中是不包含DBI数据库包的，以在
http://ppm.activestate.com/PPMPackages/zips
下载对应的Perl模块，解压缩后用ppm install DBI.ppd命令安装

注意版本必须与Active Perl一致，否则安装会出错，
出错信息大意"(无法找到合适的安装目标)"

安装顺序必须先安装DBI模块，而后是DBD-Mysql包.

尽量安装较新的DBD-MySQL包，较早的DBD-MySQL connect MySQL5时可能失败,提示不支持server要求的认证功能.

测试用程序
use DBI;
my $dbh = DBI->connect('dbi:mysql:database=mysql;hostname=localhost;port=3306',"root","password")
   or die "Something wrong when connecting to MySQL: $DBI::errstr\n";
print $dbh;
$dbh->disconnect;

连接本地的服务器上的mysql数据库,而后关闭这个连接
connect可能有如下几种格式
$dbh = DBI->connect("DBI:mysql:$database", $user, $password);
$dbh = DBI->connect("DBI:mysql:$database:$hostname",
                    $user, $password);
$dbh = DBI->connect("DBI:mysql:$database:$hostname:$port",
                    $user, $password);

如果用户名或口令未定义，DBI分别使用DBI_USER和DBI_PASS环境变量的值。如果你不指定主机名，它缺省为'localhost'。如果你不指定一个端口号，它缺省为MySQL的缺省端口(3306)。

在连接上数据库之后,创建新的database
my $statement = "create database ptdgtest;";
$rv = $dbh->do($statement)
        or die "Can't execute $statement: $dbh- >errstr\n";