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

我在从Perl执行存储过程时遇到问题(使用DBI模块).如果我执行一个简单的SELECT * FROM表,则没有问题.

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是否对我应该了解的程序做任何有趣的事情？

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

解决方法:

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

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

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

标签：mysql,stored-procedures,perl,dbi
来源： https://codeday.me/bug/20190627/1300397.html