Question

我遇到了从Perl执行存储过程的问题（使用DBI模块）。如果我执行简单的SELECT * FROM table，则没有问题。

SQL代码是：

    DROP FUNCTION IF EXISTS update_current_stock_price;
 DELIMITER |
  CREATE FUNCTION update_current_stock_price (symbolIN VARCHAR(20), nameIN VARCHAR(150), currentPriceIN DECIMAL(10,2), currentPriceTimeIN DATETIME)
   RETURNS INT
   DETERMINISTIC
    BEGIN
  DECLARE outID INT;
  SELECT `id` INTO outID FROM `mydb449`.`app_stocks` WHERE `symbol` = symbolIN;

  IF outID > 0 THEN
   UPDATE `mydb449`.`app_stocks`
   SET `currentPrice` = currentPriceIN, `currentPriceTime` = currentPriceTimeIN
   WHERE `id` = outID;

  ELSE
   INSERT INTO `mydb449`.`app_stocks` 
   (`symbol`, `name`, `currentPrice`, `currentPriceTime`) 
   VALUES (symbolIN, nameIN, currentPriceIN, currentPriceTimeIN);
   SELECT LAST_INSERT_ID() INTO outID;
  END IF;

  RETURN outID;
    END|
 DELIMITER ;

Perl代码：

 $sql = "select update_current_stock_price('$csv_result[0]', '$csv_result[1]', '$csv_result[2]',  '$currentDateTime') as `id`;";
 My::Extra::StandardLog("SQL being used: ".$sql);
 my $query_handle = $dbh->prepare($sql);
 $query_handle->execute();
 $query_handle->bind_columns(\$returnID);
 $query_handle->fetch();

如果我使用mysql CLI客户端执行select update_current_stock_price('aapl', 'Apple Corp', '264.4', '2010-03-17 00:00:00') as id ;，它会正确执行存储的函数并返回现有ID或新ID。

但是，Perl只会返回一个新的ID（每次运行时递增1）。它也不会将结果存储在数据库中。在DELETE函数运行后，它似乎正在对新ID执行update_current_stock_price。

有任何帮助吗？ Perl是否对我应该了解的程序做任何有趣的事情？

在你提问之前，我无法访问二进制日志记录，抱歉。

Answer 1

也许你在交易中这样做并且它正在回滚？该行已插入，但永远不会被提交，也无法看到。

如果有疑问，我会在您的开发服务器上尝试并启用常规查询日志。

另外，您可能想了解INSERT ... ON DUPLICATE KEY UPDATE语法，它可能会执行您尝试执行的操作。

Answer 2

尝试

$query_handle->dump_results(15, "\n", '|');

在bind_columns调用之前查看它是否实际返回结果，您也可以尝试将SELECT storedprocedure替换为SELECT * FROM storedprocedure

Answer 3

您应该检查您是否正在运行最新版本的DBD :: mysql（这是DBI使用的MySQL驱动程序）。以前存储过程存在一些问题，至少有一些是在最近的版本中修复的。也许这些资源也很有帮助：

Perl DBI执行不维护MySQL存储过程的结果

3 个答案: