SQL/MySQL/Procedure Function/Perl

Материал из SQL эксперт
Перейти к: навигация, поиск

Calling a stored procedure in Perl

   <source lang="sql">

       

$dbh = DBI->connect("DBI:mysql:$database:$host:$port","$user", "$password",{ PrintError => 0}) || die $DBI::errstr;

if ($dbh->do("call error_test_proc(1)")) {

   printf("Stored procedure execution succeeded\n");

} else {

   printf("Error executing stored procedure: MySQL error %d (SQLSTATE %s)\n %s\n",
            $dbh->err,$dbh->state,$dbh->errstr); 

}

       </source>
   
  


Get returning value from a MySQL stored procedure in Perl

   <source lang="sql">

$stmt=$my_db->prepare("SELECT isodd(?)") or die($my_db->error); $stmt->bind_param("i",$aNumber) or die($stmt->error); $stmt->execute() or die($stmt->error); $stmt->bind_result($isodd); $stmt->fetch(); if ($isodd == 1 )

  printf("%d is an odd number\n",$aNumber);

else

  printf("%d is an even number\n",$aNumber);
       </source>