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

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();

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

然而，Perl 只会返回一个新的 ID（每次运行时加 1）。它也不将结果存储在数据库中。看起来它在 update_current_stock_price 函数运行后立即对新 id 执行 DELETE 。

有什么帮助吗？ Perl 对程序做了什么我应该知道的奇怪的事情吗？

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

Answer 1

也许您在事务中执行此操作并且它正在回滚？该行已插入，但从未提交且不可见。

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

另外，您可能想了解 INSERT ... ON DUPLICATE KEY UPDATE 语法，它可能可以完成您想要做的事情。

Answer 2

在bind_columns调用之前尝试

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

看看它是否真的得到了结果，您也可以尝试将SELECT storeprocedure替换为SELECT * FROM storeprocedure

Answer 3

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

• http://www.perlmonks.org/?node_id=609098
• http://www.perlmonks.org/?node_id=830585