Perl DBI 操作数据库

q36988

• 连接实例
  
• 显示sql结果实例
  

　　模块名称
　　DBI
　　一、连接实例

my $sql = qw{ sql };
my $dbh = DBI->connect("DBI:数据库类型:database=数据库名称;host=localhost","root","passwd", {'RaiseError' => 1});
my $sth=$dbh->prepare("$sql");
$sth->execute();
$sth->finish;
$dbh->disconnect();
　　
my $sql = qw{ sql };
　　声明要执行的sql语句
　　my $dbh = DBI->connect("DBI:数据库类型:database=数据库名称;host=localhost","root","passwd", {'RaiseError' => 1});
　　连接数据库,数据库类型为mysql、Oracle、db2.root,passwd对应登录账号密码
　　my $sth=$dbh->prepare("$sql");
　　准备执行之前声明的sql语句
　　$sth->execute();
　　执行sql语句
　　$sth->finish;
执行完毕
　　$dbh->disconnect();
　　断开数据库
　　二、显示sql结果实例

my $sql = shift;
my $dbh = DBI->connect("DBI:数据库类型:database=数据库名称;host=localhost","root","passwd", {'RaiseError' => 1});
my $sth=$dbh->prepare("$sql");
$sth->execute();
while (my @now = $sth->fetchrow_array()) {
print @now;
}
$sth->finish;
$dbh->disconnect();
　　增加一$sth->fetchrow_array()即可
　　更多操作请移步至
　　http://search.cpan.org/~timb/DBI-1.628/DBI.pm