MySQL 乘法输出和 Perl DBI

Question

我正在编写一个使用 DBI 连接到 MySQL 数据库的 Perl 脚本。我正在尝试获取一个列，该列是 SUM(amount, 365) 的乘法值，在 MySQL 中代码有效，在 Perl 中代码也适用于 SUM(amount) 我的想法是乘法产生了一种我无法通过我的方法读取的不同类型的值。不过，我可能会离开，对 Perl 来说还是个新手。

这是代码

my ($sum, $sum365);

$sth = $dbh->prepare ("
    SELECT SUM(amount), SUM(amount) * 365)
    FROM spending 
    ");

$sth->execute()
    or die "cannot execute\n";

$sth->bind_col(1, \$sum);
$sth->bind_col(2, \$sum365);


while ( $sth->fetch ){
    print "$sum\n";
    print "$sum365\n";
}

我正在考虑的另一个解决方法是，有没有办法让 Perl 将值读取为数字？然后我可以创建另一个变量 $sum365 = $sum * 365。我也试过了，但是 Perl 没有将值读取为数字。

我还知道在 Perl 中有不同的方法可以从数据库 array、arrayref 等fetch 等。是否有另一种方法可以工作，为什么？

Answer 1

您在“365”之后的查询中有多余的右括号 ()):

$sth = $dbh->prepare ("
    SELECT SUM(amount), SUM(amount) * 365
    FROM spending 
");