perl调用mysql存储过程_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是否对我应该了解的程序做任何有趣的事情？

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