的Perl DBI的MySQL更新

Question

我想知道如何可以从下面的Perl代码段打印结果：

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

我倒要看看你会看到什么，如果你输入“SELECT * FROM表名;进入MySQL的和有整个关系显示出来。有没有从$某物返回值可以在被循环并打印出来？

Answer 1

# BIND TABLE COLUMNS TO VARIABLES 
$sth->bind_columns(undef, \$id, \$product, \$quantity); 

# LOOP THROUGH RESULTS 
while($sth->fetch()) { 
    print "$id, $product, $quantity <br />"; 
}