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