Bug 590032 – sci-biology/bioperl-db-9999-r1 - should DEPEND on dev-perl/DBD-Oracle

• Status: UNCONFIRMED
• Product: Gentoo Linux

[Description Martin Mokrejš 2016-07-29 19:39:03 UTC]

It seems there is no dev-perl/DBD-Oracle in main Gentoo portage tree at least. The package doe snot strictly need it but provided this is about remote servers to be usable I think it is fine to require the DEPENDency unless USE=minimal.

>>> Emerging (1 of 1) sci-biology/bioperl-db-9999-r1::gentoo
>>> Unpacking source...
GIT update -->
   repository:               git://github.com/bioperl/bioperl-db.git
   at the commit:            9d1f5a1d5f29579353d58597b501c6aeffc4771d
   branch:                   master
   storage directory:        "/scratch/usr/portage/distfiles/egit-src/bioperl-db.git"
   checkout type:            bare repository
Cloning into '/scratch/var/tmp/portage/sci-biology/bioperl-db-9999-r1/work/BioPerl-db-9999'...
done.
Branch branch-master set up to track remote branch master from origin.
Switched to a new branch 'branch-master'
>>> Unpacked to /scratch/var/tmp/portage/sci-biology/bioperl-db-9999-r1/work/BioPerl-db-9999
>>> Source unpacked in /scratch/var/tmp/portage/sci-biology/bioperl-db-9999-r1/work
>>> Preparing source in /scratch/var/tmp/portage/sci-biology/bioperl-db-9999-r1/work/BioPerl-db-9999 ...
>>> Source prepared.
>>> Configuring source in /scratch/var/tmp/portage/sci-biology/bioperl-db-9999-r1/work/BioPerl-db-9999 ...
 * Using Module::Build
 * perl Build.PL --installdirs=vendor --libdoc= --destdir=/scratch/var/tmp/portage/sci-biology/bioperl-db-9999-r1/image/ --create_packlist=1

Checking optional features...
Oracle_support....disabled
  requires:
    ! DBD::Oracle is not installed

ERRORS/WARNINGS FOUND IN PREREQUISITES.  You may wish to install the versions
of the modules indicated above before proceeding with this installation

Run 'Build installdeps' to install missing prerequisites.

[Comment 1 Poorvi 2020-08-25 19:11:51 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?

[Comment 2 Poorvi 2020-08-25 19:15:37 UTC]

record from the table
select * from  JobEnvironments
Category,EnvVar,Value,last_update
-----------------------------------
tkuat','REUTFEED_SUBJ','RSF.REC',;\'2010-04-07 06:00:33.0'