注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Bioinformatics home

 
 
 

日志

 
 

Perl Mysql DBI  

2010-01-01 02:52:06|  分类: Perl |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

use DBI;

$dbh = DBI->connect("DBI:mysql:database=$db;host=$host", $user, $password, {RaiseError => 1});

$dbh->do("INSERT INTO foo VALUES (?, ?)", undef, $number, $name);

 

$sth = $dbh->prepare("SELECT * FROM $table");
       $sth->execute();

my $row = $sth->fetchrow_hashref();

my $row = $sth->fetchrow_array();

 

$rc = $dbh->func("createdb", $dbname, 'admin');
$rc = $dbh->func("dropdb", $dbname, 'admin');
$rc = $dbh->func("shutdown", 'admin');
$rc = $dbh->func("reload", 'admin');

 

$errno = $dbh->{'mysql_errno'};
$error = $dbh->{'mysql_error'};
$info = $dbh->{'mysql_hostinfo'};
$info = $dbh->{'mysql_info'};
$insertid = $dbh->{'mysql_insertid'};
$info = $dbh->{'mysql_protoinfo'};
$info = $dbh->{'mysql_serverinfo'};
$info = $dbh->{'mysql_stat'};
$threadId = $dbh->{'mysql_thread_id'};

my $sth = $dbh->prepare("SELECT * FROM $table");

 if (!$sth) { die "Error:" . $dbh->errstr . "\n"; }

if (!$sth->execute) { die "Error:" . $sth->errstr . "\n"; }

my $names = $sth->{'NAME'};

my $numFields = $sth->{'NUM_OF_FIELDS'};

for (my $i = 0; $i < $numFields; $i++)

{ printf("%s%s", $i ? "," : "", $$names[$i]); }

print "\n";

 while (my $ref = $sth->fetchrow_arrayref)

{
for (my $i = 0; $i < $numFields; $i++)
{ printf("%s%s", $i ? "," : "", $$ref[$i]);
}
print "\n";
}

  评论这张
 
阅读(1014)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017