perl连接mysql
1、安装DBI模块
通用方式：
    cmd->perl -MCPAN -e shell->install dbd::mysql

window专有方式：
    cmd->ppm install DBI->ppm install dbd::mysql。

2、准备数据库
这里以系统数据库mysql为例。

3、编写Perl脚本

#!/usr/bin/perl
use DBI;
my $dbname="mysql";
my $location="localhost";
my $port="3306";

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 Host, User, Password from user";
my $sth=$dbh->prepare($sql);
$sth->execute();

while(my @ref=$sth->fetchrow_array()){
	print "Host:@ref[0],User:$ref[1],Password:$ref[2]\n";
}
$dbh->disconnect