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

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

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