Execution:
dbdev:/cgi/pl # perl clob.pl
Segmentation fault
At dbi.log:
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x82c8b28)~INNER
'dbi_connect_closure' CODE(0x82c7248)) thr#8147e48
<- STORE= 1 at DBI.pm line 645
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x82c8b28)~INNER
'LongReadLen' 204800) thr#8147e48
<- STORE= 1 at clob.pl line 9
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x82c8b28)~INNER
'LongTruncOk' 1) thr#8147e48
<- STORE= 1 at clob.pl line 10
-> prepare for DBD::Oracle::db (DBI::db=HASH(0x82c7194)~0x82c8b28 'BEGIN
get_custumer_info(?, ?); END;' HASH(0x82c8ac8)) thr#8147e48
dbd_preparse scanned 2 distinct placeholders
<- prepare= DBI::st=HASH(0x82c8bd0) at clob.pl line 17
-> bind_param for DBD::Oracle::st (DBI::st=HASH(0x82c8bd0)~0x82c8c78 1
undef) thr#8147e48
bind :p1 <== undef (type 0)
bind :p1 <== undef (NULL, size 0/0/0, ptype 4, otype 1)
<- bind_param= 1 at clob.pl line 18
-> bind_param_inout for DBD::Oracle::st
(DBI::st=HASH(0x82c8bd0)~0x82c8c78 2 SCALAR(0x82c55fc) 153600
HASH(0x8148b70)) thr#8147e48
bind :p2 <== undef (type 0, inout 0x82c55fc, maxlen 153600, attribs:
HASH(0x8148b70))
<- bind_param_inout= 1 at clob.pl line 19
-> execute for DBD::Oracle::st (DBI::st=HASH(0x82c8bd0)~0x82c8c78)
thr#8147e48
dbd_st_execute BEGIN (out1, lob0)...
Seems enter into eternal loop (im using perl -d clob.pl to see what
happening).
"Tim Bunce" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> That might not be relevant here but the lack of an error message
> doesn't help anyone. Confirmation that the examples in the docs
> work would be handy.
>
> Tim.
>
> On Tue, Dec 09, 2003 at 02:14:59PM -0600, [EMAIL PROTECTED] wrote:
> >
> >
> > Read the docs on LongReadLen.
> >
> > On 09-Dec-2003 Tim Bunce wrote:
> > > ----- Forwarded message from builder developer
<[EMAIL PROTECTED]> -----
> > >
> > > Delivered-To: [EMAIL PROTECTED]
> > > X-Originating-IP: [200.163.79.22]
> > > X-Originating-Email: [EMAIL PROTECTED]
> > > From: "builder developer" <[EMAIL PROTECTED]>
> > > To: [EMAIL PROTECTED]
> > > Subject: DBD::Oracle (CLOB and sp)
> > > Date: Tue, 09 Dec 2003 09:04:04 -0200
> > > X-OriginalArrivalTime: 09 Dec 2003 11:04:05.0059 (UTC)
FILETIME=[28F34130:01C3BE44]
> > >
> > > Hello Tim,
> > >
> > > Im having troubles here in Brazil about fetching clob in out param
from a stored procedure
> > > using Oracle
> > > and Perl DBI.
> > >
> > > Here a snip about my procedure:
> > >
> > > PROCEDURE GET_CUSTUMER_INFO
> > > ( id in number default null
> > > , vreturn out clob)
> > >
> >
> >
> > > At perl script:
> > >
> > > use DBI;
> > > use DBD::Oracle qw(:ora_types);
> > >
> > > DBI->trace(2, 'dbi.log');
> > >
> > > $dbh = DBI->connect("connection string") || die $!;
> > >
> > > # local variables
> > > $id = 1;
> > > my $vreturn;
> > >
> > > $stmt = $dbh->prepare("BEGIN get_custumer_info(?, ?); END;");
> > > $stmt->bind_param(1, $id);
> > > $stmt->bind_param_inout(2, \$vreturn, {ora_type => ORA_CLOB});
> > > $stmt->execute || die $!;
> > > $stmt->finish();
> > > $dbh->disconnect();
> > > print "return = $vreturn\n";
> > >
> > > I already tryed get some info but without sucessful (mail list,
other people, etc).
> > >
> > > Help me with some idea, a question: returning clob in out param
into stored procedure is
> > > supported
> > > DBD::Oracle ?
> > >
> > > Thanks in advance
> > >
> > >
> >
> --------------------------------------------------------------------------
------------------------
> > > --
> > >
> > > MSN Messenger: converse com os seus amigos online. Instale gratis.
Clique aqui.
> > >
> > > ----- End forwarded message -----
> >
> > --
> > ----------------------------------
> > E-Mail: [EMAIL PROTECTED]
> > Date: 09-Dec-2003
> > Time: 14:12:10
> > ----------------------------------
