Perl 调用 MySQL 存储过程并获得返回值

oldmonst

perl代码

1. $stmt=$my_db->prepare("SELECT isodd(?)") or die($my_db->error);
   
2. 
   
3. $stmt->bind_param('i',$aNumber) or die($stmt->error);
   
4. 
   
5. $stmt->execute() or die($stmt->error);
   
6. 
   
7. $stmt->bind_result($isodd);
   
8. 
   
9. $stmt->fetch();
   
10. 
    
11. if ($isodd == 1 )
    
12.    printf("%d is an odd number\n",$aNumber);
    
13. else
    
14.    printf("%d is an even number\n",$aNumber);

复制代码