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

Question

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

在下面的示例中，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"; 
} 

在此先感谢

Answer 1

此代码将让你行的第二和第三列到变量：

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