mysql - 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 语法，它可能会执行您想要执行的操作。