Michael,
Using your script, I received similar errors. See below.
(my environment)
OS: Compaq Tru64 5.1
DB: Oracle Enterprise Server 8.1.6
Perl: 5.6.0
DBI: 1.15
DBD: 1.06
Here are my results:
DBI::db=HASH(0x140013060) trace level set to 10 in DBI 1.15-nothread
-> prepare for DBD::Oracle::db (DBI::db=HASH(0x1400130b0)~0x140013060 '
BEGIN OPEN :cur1 FOR
SELECT object_name, owner FROM all_objects
WHERE object_name LIKE :p1 and ROWNUM <= 3
; END;
')
dbih_setup_handle(DBI::st=HASH(0x140013200)=>DBI::st=HASH(0x140013280),
DBD::Oracle::st, 140013210, Null!)
dbih_make_com(DBI::db=HASH(0x140013060), DBD::Oracle::st, 336)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Err,
DBI::db=HASH(0x140013060)) SCALAR(0x140094e38) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), State,
DBI::db=HASH(0x140013060)) SCALAR(0x1400cd728) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Errstr,
DBI::db=HASH(0x140013060)) SCALAR(0x140094df8) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Handlers,
DBI::db=HASH(0x140013060)) ARRAY(0x140013070) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Debug,
DBI::db=HASH(0x140013060)) 10 (already defined)
dbd_preparse scanned 2 distinct placeholders
OCIHandleAlloc(14018c008,1401a6ee0,4,0,0)=SUCCESS
OCIStmtPrepare(1401d6658,1401b0a68,'
BEGIN OPEN :cur1 FOR
SELECT object_name, owner FROM all_objects
WHERE object_name LIKE :p1 and ROWNUM <= 3
; END;
',136,1,0)=SUCCESS
OCIAttrGet(1401d6658,4,1401a6ee8,0,24,1401b0a68)=SUCCESS
dbd_st_prepare'd sql BEGIN
dbd_describe skipped for BEGIN
<- prepare= DBI::st=HASH(0x140013200) at dbi_test2.pl line 21.
-> bind_param for DBD::Oracle::st (DBI::st=HASH(0x140013200)~0x140013280
':p1' 'V%')
bind :p1 <== 'V%' (type 0)
bind :p1 <== 'V%' (size 2/3/0, ptype 4, otype 1)
bind :p1 <== 'V%' (size 2/2, otype 1, indp 0)
OCIBindByName(1401d6658,1401c67b8,1401b0a68,":p1",3,1401ce378,2,1,1401c67d2,
0,1401c67d0,0,0,2)=SUCCESS
OCIBindDynamic(1401ec6a0,1401b0a68,1401c6788,30000810720,1401c6788,300008109
20)=SUCCESS
bind :p1 done
<- bind_param= 1 at dbi_test2.pl line 24.
-> bind_param_inout for DBD::Oracle::st
(DBI::st=HASH(0x140013200)~0x140013280 ':cur1' SCALAR(0x140169f38) 0
HASH(0x140019bf0))
bind :cur1 <== 42 (type 0, inout 0x140169f38, maxlen 0, attribs:
HASH(0x140019bf0))
bind :cur1 done for ftype 116
<- bind_param_inout= 1 at dbi_test2.pl line 25.
-> execute for DBD::Oracle::st (DBI::st=HASH(0x140013200)~0x140013280)
dbd_st_execute BEGIN (out1, lob0)...
bind :cur1 - allocating new sth...
OCIHandleAlloc(14018c008,1401c6748,4,0,0)=SUCCESS
OCIBindByName(1401d6658,1401c6740,1401b0a68,":cur1",5,1401c6748,0,116,0,0,0,
0,0,0)=SUCCESS
>> FETCH DISPATCH (DBI::db=HASH(0x140013060) rc2/3 @2 g0
a1400fc760) at /usr/local/lib/perl5/site_perl/5.6.0/alpha-dec_osf/DBI.pm
line 748.
<- FETCH= 'DBD::Oracle::db' ('ImplementorClass' from cache) at
/usr/local/lib/perl5/site_perl/5.6.0/alpha-dec_osf/DBI.pm line 748.
dbih_setup_handle(DBI::st=HASH(0x1400132e0)=>DBI::st=HASH(0x1400d5a00),
DBD::Oracle::st, 140013040, Null!)
dbih_make_com(DBI::db=HASH(0x140013060), DBD::Oracle::st, 336)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Err,
DBI::db=HASH(0x140013060)) SCALAR(0x140094e38) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), State,
DBI::db=HASH(0x140013060)) SCALAR(0x1400cd728) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Errstr,
DBI::db=HASH(0x140013060)) SCALAR(0x140094df8) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Handlers,
DBI::db=HASH(0x140013060)) ARRAY(0x140013070) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Debug,
DBI::db=HASH(0x140013060)) 10 (already defined)
pm02rg:/var/smart/log #
pm02rg:/var/smart/log # vi *.txt
"rset_test-10.txt" 52 lines, 3687 characters
DBI::db=HASH(0x140013060) trace level set to 10 in DBI 1.15-nothread
-> prepare for DBD::Oracle::db (DBI::db=HASH(0x1400130b0)~0x140013060 '
BEGIN OPEN :cur1 FOR
SELECT object_name, owner FROM all_objects
WHERE object_name LIKE :p1 and ROWNUM <= 3
; END;
')
dbih_setup_handle(DBI::st=HASH(0x140013200)=>DBI::st=HASH(0x140013280),
DBD::Oracle::st, 140013210, Null!)
dbih_make_com(DBI::db=HASH(0x140013060), DBD::Oracle::st, 336)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Err,
DBI::db=HASH(0x140013060)) SCALAR(0x140094e38) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), State,
DBI::db=HASH(0x140013060)) SCALAR(0x1400cd728) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Errstr,
DBI::db=HASH(0x140013060)) SCALAR(0x140094df8) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Handlers,
DBI::db=HASH(0x140013060)) ARRAY(0x140013070) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x140013280), Debug,
DBI::db=HASH(0x140013060)) 10 (already defined)
dbd_preparse scanned 2 distinct placeholders
OCIHandleAlloc(14018c008,1401a6ee0,4,0,0)=SUCCESS
OCIStmtPrepare(1401d6658,1401b0a68,'
BEGIN OPEN :cur1 FOR
SELECT object_name, owner FROM all_objects
WHERE object_name LIKE :p1 and ROWNUM <= 3
; END;
',136,1,0)=SUCCESS
OCIAttrGet(1401d6658,4,1401a6ee8,0,24,1401b0a68)=SUCCESS
dbd_st_prepare'd sql BEGIN
dbd_describe skipped for BEGIN
<- prepare= DBI::st=HASH(0x140013200) at dbi_test2.pl line 21.
-> bind_param for DBD::Oracle::st (DBI::st=HASH(0x140013200)~0x140013280
':p1' 'V%')
bind :p1 <== 'V%' (type 0)
bind :p1 <== 'V%' (size 2/3/0, ptype 4, otype 1)
bind :p1 <== 'V%' (size 2/2, otype 1, indp 0)
OCIBindByName(1401d6658,1401c67b8,1401b0a68,":p1",3,1401ce378,2,1,1401c67d2,
0,1401c67d0,0,0,2)=SUCCESS
OCIBindDynamic(1401ec6a0,1401b0a68,1401c6788,30000810720,1401c6788,300008109
20)=SUCCESS
bind :p1 done
<- bind_param= 1 at dbi_test2.pl line 24.
-> bind_param_inout for DBD::Oracle::st
(DBI::st=HASH(0x140013200)~0x140013280 ':cur1' SCALAR(0x140169f38) 0
HASH(0x140019bf0))
bind :cur1 <== 42 (type 0, inout 0x140169f38, maxlen 0, attribs:
HASH(0x140019bf0))
bind :cur1 done for ftype 116
<- bind_param_inout= 1 at dbi_test2.pl line 25.
-> execute for DBD::Oracle::st (DBI::st=HASH(0x140013200)~0x140013280)
dbd_st_execute BEGIN (out1, lob0)...
bind :cur1 - allocating new sth...
OCIHandleAlloc(14018c008,1401c6748,4,0,0)=SUCCESS
OCIBindByName(1401d6658,1401c6740,1401b0a68,":cur1",5,1401c6748,0,116,0,0,0,
0,0,0)=SUCCESS
>> FETCH DISPATCH (DBI::db=HASH(0x140013060) rc2/3 @2 g0
a1400fc760) at /usr/local/lib/perl5/site_perl/5.6.0/alpha-dec_osf
/DBI.pm line 748.
<- FETCH= 'DBD::Oracle::db' ('ImplementorClass' from cache) at
/usr/local/lib/perl5/site_perl/5.6.0/alpha-dec_osf/DBI.pm line 74
8.
dbih_setup_handle(DBI::st=HASH(0x1400132e0)=>DBI::st=HASH(0x1400d5a00),
DBD::Oracle::st, 140013040, Null!)
dbih_make_com(DBI::db=HASH(0x140013060), DBD::Oracle::st, 336)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Err,
DBI::db=HASH(0x140013060)) SCALAR(0x140094e38) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), State,
DBI::db=HASH(0x140013060)) SCALAR(0x1400cd728) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Errstr,
DBI::db=HASH(0x140013060)) SCALAR(0x140094df8) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Handlers,
DBI::db=HASH(0x140013060)) ARRAY(0x140013070) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1400d5a00), Debug,
DBI::db=HASH(0x140013060)) 10 (already defined)
