perl连接mysql

首先需要用ppm安装DBI和DBD-mysql ，如果没有的话点击EDIT-preferences -repositories 下面的Suggested add就行了，你就可以找到更多的模块，就像ubuntu添加源一样

代码

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;#断开数据库连接