使用perl连接到数据库时打印内容

时间:2012-11-06 23:06:51

标签: mysql perl

下面是连接mysql数据库并使用perl检索结果的代码。

在下面的示例中,samples表有10列。我只想将记录99的第二和第三列变成变量。

有人可以帮助我吗?

use strict;
 use warnings;
 use DBI;

my $dbh = DBI->connect('dbi:mysql:perltest','root','password') or die "Connection Error: $DBI::errstr\n";
my $sql = "select * from samples where record='99'";
my $sth = $dbh->prepare($sql);
$sth->execute or die "SQL Error: $DBI::errstr\n";
while (my @row = $sth->fetchrow_array) {
 print "@row\n";
 } 

提前致谢

1 个答案:

答案 0 :(得分:2)

此代码将把行的第二和第三列转换为变量:

while (my @row = $sth->fetchrow_array) {
     $var1 = @row[1];
     $var2 = @row[2];
}