ANNOUNCE: Oracle-OCI-0.03

[email protected] (Tim Bunce) Sun, 8 Jul 2001 03:37:51 +0100
Newsgroups perl.dbi.oracle-oci
Organization Paul Ingram Group, Software Systems, +44 1 483 862800
Message-ID <[email protected]>
It'll be here soon:
http://cpan.perl.org/authors/id/T/TI/TIMB/Oracle-OCI-0.03.tar.gz

But for those who can't wait it's here now:
http://pause.perl.org/pub/PAUSE/authors/id/T/TI/TIMB/Oracle-OCI-0.03.tar.gz

Please give it a whirl!

The README says:

: *** HOW TO HELP:
: 
: Start trying to get real work done with Oracle::OCI.
: I'd love to have more useful chunks of working code.
: Perhaps Perl versions of some of the $ORACLE_HOME/rdbms/demo programs.
: I'd especially love someone to implement a recursive describe command!

Tim.

FYI, here's what reading a lob in chunks currently looks like:

OCILobEnableBuffering($dbh, $dbh, $lob_locator); # optional

my $lob_read_buf='';
my $chunk  = 5;
for ( my $offset=1; $chunk == 5 ; $offset += $chunk ) {
    OCILobRead($dbh, $dbh, $lob_locator,
                $chunk, $offset,
                oci_buf_len($lob_buf, 200, \$chunk),
                0,0, 0,0 );
    $lob_read_buf .= $lob_buf;
}