Perl与MySQL链接
接上文《Access转MySQL方法》。已经在MySQL里建了一个数据库，这个数据库可以在“C:\Documents and Settings\All Users\Application Data\MySQL\MySQL Server 5.1\data”目录下查到。现在要用Perl对这个数据库进行链接。
先用ActivePerl下载安装模块DBD-mysql，之后编辑链接代码如下：
#!/usr/bin/perl
use DBI;
my $dbname = "dbname"; #改成自己的数据库名字
my $location = "localhost";
my $port = "3306"; #这是mysql的缺省
my $database = "DBI:mysql:$dbname:$location:$port";
my $db_user = "root";
my $db_pass = "******"; #将******替换为对应的mysql数据库登录密码
my $dbh = DBI->connect($database,$db_user,$db_pass);
my $sql = "SELECT * FROM miRNA2gene where id = 1217";
my $sth = $dbh->prepare($sql);
$sth->execute() or die "无法执行SQL语句:$dbh->errstr";
my @row;
@row = $sth->fetchrow_array();
print join(",",@row) . "\n";
$sth->finish();
$dbh->disconnect();
该程序功能为查询数据库中编号为“1217”的TargetGene信息（所属miRNA为hsa-mir-9，gene_id为6646，gene_name为soat1，在Targetscan数据库中在hsa-mir-9中的分数为-0.2）。运行结果如图所示，红线划出部分为提取出来的信息（点击看大图）：
最近评论