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/perluse 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