How to create and call mysql stored procedure in perl?


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting How to create and call mysql stored procedure in perl?
# 1  
Old 01-21-2011
How to create and call mysql stored procedure in perl?

Hi,

I want to create MySQL stored procedure and call the stored procedure using perl.

I tried like this:

Code:
use DBI;
my $dbh = DBI->connect ("DBI:mysql:test",
                           "root", "ibab",
                           { RaiseError => 1, PrintError => 0});
$create_procedure = qq{
    CREATE PROCEDURE greeting()
	BEGIN
	select current_time() AS time;
	END
};
$dbh->do(qq{DROP PROCEDURE IF EXISTS greeting});
$dbh->do($create_procedure);
my $sth = $dbh->prepare(qq{CALL greeting()});
$sth->execute();

The procedure is getting created in Mysql but when i am trying to run i am getting this error.

Code:
C:\Perl\bin>perl try.pl
DBD::mysql::st execute failed: PROCEDURE test.greeting can't return a result set in the given context

I am not able to identify and debug what is this error?

Here is the result in MySQL.
Code:
mysql> SHOW CREATE PROCEDURE greeting\G
*************************** 1. row ***************************
       Procedure: greeting
        sql_mode: STRICT_TRANS_TABLES,NO_AUTO_CREATE_USER
Create Procedure: CREATE DEFINER=`root`@`localhost` PROCEDURE `greeting`()
BEGIN
        select current_time() AS time;
        END
1 row in set (0.01 sec)


mysql> call greeting();
+----------+
| time     |
+----------+
| 14:51:11 |
+----------+
1 row in set (0.03 sec)

I am not able to get the above output. The output should be current time displayed.

Code:
+----------+
| time     |
+----------+
| 14:51:11 |
+----------+

How can i do it in perl?

Code:
MySQL Version
mysql> select version();
+---------------------+
| version()           |
+---------------------+
| 5.0.27-community-nt |
+---------------------+
1 row in set (0.00 sec)

Perl Version:perl, v5.8.8

Help may be very much appreciated.

Regards
Vanitha
# 2  
Old 01-22-2011
MySQL Procedure

Looked at the MySQL Documentation for Create Procedure and did this as the "root" user...
Code:
mysql> delimiter //
mysql> create procedure greeting(out t varchar(30)) begin select current_time() into t; end//
Query OK, 0 rows affected (0.00 sec)

mysql> call greeting(@a)//
Query OK, 0 rows affected (0.00 sec)

mysql> select @a//
+----------+
| @a       |
+----------+
| 21:57:47 |
+----------+
1 row in set (0.00 sec)

It does work but it looks like the output is supposed to be put into a table. In this case a temp table. You'll have to fetch the row from the temp table "@a".

Also found that it would only work if I was the "root" user because the normal user didn't seem to have "execute" privilege.

Modify your PERL code to model what's above. Check the procedure it creates via mysql. Login as "root" again and then...
Code:
mysql> use test;
Database changed
mysql>show create procedure greeting;

The reason to verify the procedure is because of the delimiter included with the procedure. Did the semicolon get in there or did it cause an error?

After that all works as "root" you can attempt each step as a normal user and see what extra privileges need to be enabled.

Also have a look at CREATE FUNCTION, same doc as link above. The hello_world() function is run from a SELECT so you could probably do something like...
Code:
mysql> create function greeting2() returns varchar(30) deterministic return current_time();
Query OK, 0 rows affected (0.00 sec)

mysql> select greeting2() as time;
+----------+
| time     |
+----------+
| 22:36:48 |
+----------+
1 row in set (0.00 sec)

...and then fetch the row.
# 3  
Old 01-25-2011
Quote:
Originally Posted by m1xram
Looked at the MySQL Documentation for Create Procedure and did this as the "root" user...
Code:
mysql> delimiter //
mysql> create procedure greeting(out t varchar(30)) begin select current_time() into t; end//
Query OK, 0 rows affected (0.00 sec)

mysql> call greeting(@a)//
Query OK, 0 rows affected (0.00 sec)

mysql> select @a//
+----------+
| @a       |
+----------+
| 21:57:47 |
+----------+
1 row in set (0.00 sec)

It does work but it looks like the output is supposed to be put into a table. In this case a temp table. You'll have to fetch the row from the temp table "@a".

Also found that it would only work if I was the "root" user because the normal user didn't seem to have "execute" privilege.

Modify your PERL code to model what's above. Check the procedure it creates via mysql. Login as "root" again and then...
Code:
mysql> use test;
Database changed
mysql>show create procedure greeting;

The reason to verify the procedure is because of the delimiter included with the procedure. Did the semicolon get in there or did it cause an error?

After that all works as "root" you can attempt each step as a normal user and see what extra privileges need to be enabled.

Also have a look at CREATE FUNCTION, same doc as link above. The hello_world() function is run from a SELECT so you could probably do something like...
Code:
mysql> create function greeting2() returns varchar(30) deterministic return current_time();
Query OK, 0 rows affected (0.00 sec)

mysql> select greeting2() as time;
+----------+
| time     |
+----------+
| 22:36:48 |
+----------+
1 row in set (0.00 sec)

...and then fetch the row.
Hi,

Thanks for the reply,

I am a root user.

I tried for procedure like this:

Code:
use DBI;
my $create_procedure = qq{
   CREATE PROCEDURE simpleproc (OUT param1 INT)
   BEGIN
   SELECT COUNT(*) INTO param1 FROM data;
   END
};
$dbh->do($create_procedure);
my $sth = $dbh->prepare("CALL simpleproc(@a)");
$sth->execute();
//then fetch

But still i am unable to execute the procedure from Perl.
I am getting this error:
Code:
DBD::mysql::st execute failed: Incorrect number of arguments for PROCEDURE test simpleproc; expected 1, got 0 at try.pl line 23.

I am finding an difficulty in calling procedure.

How can i call procedure from Perl program?

In MySQL it works fine.

I want to create procedure through PERL.

Help is very much appreciated.

Regards
Vanitham
# 4  
Old 01-27-2011
Common MySQL Procedure problem

Did a lot of googling and found that many people have this problem. PHP people got rid of it with the PDO interface but I found an example of a simplified answer for PERL.

First, the stored procedure must be simplified.
Code:
mysql> delimiter //
mysql> create procedure greet() 
    -> begin
    ->   select current_time() as t;
    -> end
    -> //
Query OK, 0 rows affected (0.00 sec)

Second, we call it and fetch the row.
Code:
use DBI; 
$dbh = DBI->connect("dbi:mysql:database=test","root","password"); 
$q = $dbh->prepare("call greet()"); 
$q->execute(); 
@results = $q->fetchrow(); 
print $results[0], "\n";

There's no more IN or OUT variables, that PERL can't deal with, and we got rid of the temp table. That was a tough find.

Also found a procedure which works with a parameter.
Code:
mysql> delimiter //
mysql> create procedure Foo( x int) 
    -> begin
    ->   select x*2;
    -> end
    -> //
mysql> delimiter //
Query OK, 0 rows affected (0.00 sec)

Code:
use DBI; 
$dbh = DBI->connect("dbi:mysql:database=test", "root", "password"); 
$q = $dbh->prepare("call Foo(?)"); 
$q->execute(5); 
@results = $q->fetchrow(); 
print $results[0], "\n";

# 5  
Old 01-27-2011
Update your DBD::MySQL module.

Last edited by k_manimuthu; 01-27-2011 at 05:22 AM..
# 6  
Old 01-27-2011
IN OUT variables

@k_manimuthu

Don't see any examples of using IN OUT INOUT variables at the link you posted which was what the problem was. Once they are removed any stored procedure can be used with the current version of DBI::\DBD as long as it is reasonably recent.

I have found nothing to suggest that the above variables are supported in the latest version.

Last edited by m1xram; 01-27-2011 at 11:22 AM.. Reason: typo
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to call a stored procedure inside a loop?

How to call a stored procedure inside a loop export PATH=$ORACLE_HOME/bin:$PATH ORACLE_SID=xxxx; export ORACLE_SID ORAENV_ASK=NO TODAY_DATE=$(date +"%Y%m%d") LOGFILE=/var/opt/gogd/cust/scripts/${TODAY_DATE}_sap_cust_rel.log echo 'Connected' PARCUST=sap_cust_rel.par sqlldr... (1 Reply)
Discussion started by: ashwanth
1 Replies

2. Shell Programming and Scripting

How to call stored procedure with CLOB out parameter from shell script?

I have written a stored procedure in oracle database, which is having a CLOB OUT parameter. How can i call this stored procedure from shell script and get the CLOB object in shell script variable? (0 Replies)
Discussion started by: vel4ever
0 Replies

3. Shell Programming and Scripting

How to call a stored procedure from shell program?

How to call a stored procedure from shell program (1 Reply)
Discussion started by: noorm
1 Replies

4. Shell Programming and Scripting

Call and redirect output of Oracle stored procedure from unix script

Hi, Can you assist me in how to redirect the output of oracle stored procedure from unix script? Something similar to what i did for sybase isql -U$MYDBLOG -D$MYDBNAME -S$MYDBSVR -P$MYDBPWD -o$MYFILE<< %% proc_my_test 8 go %% Thanks in advance - jak (0 Replies)
Discussion started by: jakSun8
0 Replies

5. Shell Programming and Scripting

how to call oracle stored procedure from unix shell

Hi i want to call a oracle stored procedure from unix (using bash shell). consider this is my oracle stored procedure with parameter create procedure testproc(name IN varchar, age IN Number, id OUT Number ) AS begin id=1; dbms_output.put.line('successfull validation') end;... (6 Replies)
Discussion started by: barani75
6 Replies

6. Shell Programming and Scripting

Unique constraint violated within stored procedure executed from Perl

Hi! I got an strange trouble executing a stored procedures that goes inserting line by line on a table. I mus integrate it with perl for an specific task... the hole process is controlled by e Perl script that: Load a text file calling sqlldr. Call a stored procedure that process the... (2 Replies)
Discussion started by: jparra
2 Replies

7. Programming

How to call sqlloader from stored procedure!!! Advise

Hi , I have a dellimited .dat file and a sqlloader. I want to call the sqlloader from a oracle stored procedure. The procedure should return the result of sqlloader's execution. (3 Replies)
Discussion started by: Haque123
3 Replies

8. Shell Programming and Scripting

need to call 3 stored procedure at the same time

Hi GUYS, I need to trigger 3 stored procedure at the same time.. I know how to trigger the stored procedure. If anybody can tell me how to trigger 3 different process at the same time parallelly.. that would be helpful.. Thanks for your help in advance, Magesh (1 Reply)
Discussion started by: mac4rfree
1 Replies

9. Shell Programming and Scripting

Need to call stored procedure from unix script

Hi Guys, I have a stored procedure which has 5 out parameters. I need to call the stored procedure from the script. When i use the following in my script, db2 "CALL FCFM.PART_MASTER_TMP($Return_code,$Message,$Message1,$SQL,$Load_count)" >> $LOG_FILE I am getting an error.. Please... (1 Reply)
Discussion started by: mac4rfree
1 Replies

10. Shell Programming and Scripting

Calling MYSQL Stored Procedure?

Hi, Can anyone help me with the correct syntax to call a MYSQL stored procedure from a shell script. I have tried the following, (no input params): /usr/bin/mysql -uadmin -ppassword call TL_CLENSEDATA(); resulting in error: /home/hosting/data/scripts/dbclense.sh: line 12: syntax error... (3 Replies)
Discussion started by: kshelluser
3 Replies
Login or Register to Ask a Question