Summary: | sci-biology/bioperl-db-9999-r1 - should DEPEND on dev-perl/DBD-Oracle | ||
---|---|---|---|
Product: | Gentoo Linux | Reporter: | Martin Mokrejš <mmokrejs> |
Component: | Current packages | Assignee: | Gentoo Science Biology related packages <sci-biology> |
Status: | UNCONFIRMED --- | ||
Severity: | normal | ||
Priority: | Normal | ||
Version: | unspecified | ||
Hardware: | All | ||
OS: | Linux | ||
Whiteboard: | |||
Package list: | Runtime testing required: | --- |
Description
Martin Mokrejš
2016-07-29 19:39:03 UTC
I am finding difficulty in fetching the records from stored procedure(oracle) by invoking it through perl script. SP takes 1 input and ouput parameter is cursor Here is the perl script_------------- my $dbh = DBI->connect("dbi:Oracle://**********",'**',***) or die "Couldn't connect to database: " . DBI->errstr;// successfully connected my $cursorRecords; my $categoryBind = 'tkuat'; my $sth= $dbh->prepare(q{ BEGIN GetJobEnvironments(:category,:cursorTest); END; }); $sth->bind_param(":category", $categoryBind); $sth->bind_param_inout(":cursorTest", \$cursorRecords,20000,{ ora_type => ORA_RSET}); $sth->execute or die "Can't execute SQL statement\n"; my @row=$cursorRecords->fetchrow_array(); print("row:@row\n"); print("cursorRecords:$cursorRecords\n"); print Dumper($sth); script is executing but not printing the records from the database ---O/p:-------- row: cursorRecords:DBI::st=HASH(0x1564318) $VAR1 = bless( {}, 'DBI::st' ); ----------------------- SP in Database looks as below create or replace PROCEDURE GetJobEnvironments ( v_category IN CHAR DEFAULT NULL, v_cursor OUT SYS_REFCURSOR ) AS BEGIN IF ( v_category IS NULL ) THEN BEGIN OPEN v_cursor FOR SELECT EnvVar , VALUE FROM JobEnvironments ; END; ELSE BEGIN OPEN v_cursor FOR SELECT EnvVar , VALUE FROM JobEnvironments WHERE Category = v_category ; END; END IF; EXCEPTION WHEN OTHERS THEN raise_application_error(-20002,SQLCODE||':'||SQLERRM); END; Table JobEnvironments also has a records Can the reference in bind() $cursorRecords can hold records from a table? Can someone please help with this? record from the table select * from JobEnvironments Category,EnvVar,Value,last_update ----------------------------------- tkuat','REUTFEED_SUBJ','RSF.REC',;\'2010-04-07 06:00:33.0' |