Thanks for your reply!

Here is the output of dbi_trace=15:

bd_rebind_ph_varchar2_table(): Copying length=1 array[1558]='N'.
dbd_rebind_ph_varchar2_table(): Copying length=1 array[1559]='N'.
dbd_rebind_ph_varchar2_table(): Copying length=1 array[1560]='N'.
dbd_rebind_ph_varchar2_table(): Copying length=1 array[1561]='N'.
                OCIBindByName(b877a34,c2e3b5c,b8724c8,":in_testdefs",p
+laceh_len=12,value_p=dd5d418,value_sz=2,dty=5,indp=dcaf908,alenp=dbc6
+708,rcodep=0,maxarr_len=1562,curelep=c2e3b90 (*=1562),mode=DEFAULT,0)
+=SUCCESS
                OCIOCIBindArrayOfStruct(b90a14c,b8724c8,2,2,2,0)=SUCCE
+SS
                OCIAttrGet(b90a14c,OCI_HTYPE_BIND,c2e3b48,0,31,b8724c8
+)=SUCCESS
dbd_rebind_ph_varchar2_table(): bind :in_testdefs <== ARRAY(0xdc7adc0)
+ (in, not-utf8, csid 1->0->1, ftype 201, csform 0 (0)->0 (0), maxlen 
+2, maxdata_size 0)
                OCIAttrSet(b90a14c,OCI_HTYPE_BIND, ffa5e998,0,Attr=31,
+b8724c8)=SUCCESS
                  rebind :in_testdefs done with ftype 201 (ORA_VARCHAR
+2_TABLE)
    <- bind_param= ( 1 ) [1 items] at /mycode/start/..ComponentSet.pm 
+line 400 via  at /mycode/start/..ComponentSet.pm line 877
    {{ execute callback CODE(0xb832be8) being invoked
1   -> FETCH for DBD::Oracle::st (DBI::st=HASH(0xd077218)~INNER 'Param
+Values') thr#8916008
1   <- FETCH= ( HASH(0xd0758e8)7keys ) [1 items] at /mycode/start/..DB
+Conn.pm line 301 via  at /mycode/start/..ComponentSet.pm line 402
    }} execute callback CODE(0xb832be8) returned
    -> execute for DBD::Oracle::st (DBI::st=HASH(0xd39bbf0)~0xd077218)
+ thr#8916008
    !! ERROR: -1 'called with 11541898 bind variables when 7 are neede
+d' (err#0)
    <- execute= ( undef ) [1 items] at /mycode/start/..ComponentSet.pm
+ line 402 via  at /mycode/start/..ComponentSet.pm line 877
    >> FETCH       DISPATCH (DBI::st=HASH(0xd077218) rc2/1 @2 g2 ima40
+4 pid#30775) at /mycode/start/..ComponentSet.pm line 402 via  at /myc
+ode/start/..ComponentSet.pm line 877
1   -> FETCH for DBD::Oracle::st (DBI::st=HASH(0xd077218)~INNER 'Param
+Values') thr#8916008
       ERROR: -1 'called with 11541898 bind variables when 7 are neede
+d' (err#0)
1   <- FETCH= ( HASH(0xd39f058)7keys ) [1 items] at /mycode/start/..Co
+mponentSet.pm line 402 via  at /mycode/start/..ComponentSet.pm line 8
+77
    -> HandleError on DBI::st=HASH(0xd077218) via CODE(0xb832ab8) (und
+ef)
    >> can         DISPATCH (DBI::st=HASH(0xd39bbf0) rc1/6 @2 g2 ima10
+0 pid#30775) at /mycode/start/..Dumper/HumanReadable.pm line 130 via 
+ at /mycode/start/..Dumper/HumanReadable.pm line 259
    <- can(dump) = 0 (? 0)
    >> can         DISPATCH (DBI::st=HASH(0xd39bbf0) rc1/6 @2 g2 ima10
+0 pid#30775) at /mycode/start/..Dumper/HumanReadable.pm line 130 via 
+ at /mycode/start/..Dumper/HumanReadable.pm line 259
    <- can(dumpKeyNames) = 0 (? 0)
    >> can         DISPATCH (DBI::st=HASH(0xd39bbf0) rc1/6 @2 g2 ima10
+0 pid#30775) at /mycode/start/..Dumper/HumanReadable.pm line 130 via 
+ at /mycode/start/..Dumper/HumanReadable.pm line 259
    <- can(dumpKeyStyles) = 0 (? 0)
    >> can         DISPATCH (DBI::st=HASH(0xd39bbf0) rc1/6 @2 g2 ima10
+0 pid#30775) at /mycode/start/..Dumper/HumanReadable.pm line 130 via 
+ at /mycode/start/..Dumper/HumanReadable.pm line 259
    <- can(dumpKeyComments) = 0 (? 0)
    >> can         DISPATCH (DBI::st=HASH(0xd39bbf0) rc1/6 @2 g2 ima10
+0 pid#30775) at /mycode/start/..Dumper/HumanReadable.pm line 130 via 
+ at /mycode/start/..Dumper/HumanReadable.pm line 259
    <- can(asString) = 0 (? 0)
    >> FIRSTKEY    DISPATCH (DBI::st=HASH(0xd077218) rc2/1 @1 g2 ima4 
+pid#30775) at /mycode/start/..Dumper/HumanReadable.pm line 234 via  a
+t /mycode/start/..Dumper/HumanReadable.pm line 130
1   -> FIRSTKEY in DBD::_::common for DBD::Oracle::st (DBI::st=HASH(0x
+d077218)~INNER) thr#8916008
       ERROR: -1 'called with 11541898 bind variables when 7 are neede
+d' (err#0)
1   <- FIRSTKEY= ( undef ) [1 items] at /mycode/start/..Dumper/HumanRe
+adable.pm line 234 via  at /mycode/start/..Dumper/HumanReadable.pm li
+ne 130
    >> FETCH       DISPATCH (DBI::st=HASH(0xd077218) rc3/1 @2 g2 ima40
+4 pid#30775) at /mycode/start/..DBConn.pm line 365 via  at /mycode/st
+art/..DBConn.pm line 203
1   -> FETCH for DBD::Oracle::st (DBI::st=HASH(0xd077218)~INNER 'Raise
+Error') thr#8916008
    .. FETCH DBI::st=HASH(0xd077218) 'RaiseError' = 1
       ERROR: -1 'called with 11541898 bind variables when 7 are neede
+d' (err#0)
1   <- FETCH= ( 1 ) [1 items] at /mycode/start/..DBConn.pm line 365 vi
+a  at /mycode/start/..DBConn.pm line 203
    -> DESTROY for DBD::Oracle::st (DBI::st=HASH(0xd077218)~INNER) thr
+#8916008
                dbd_st_destroy 
                OCIHandleFree(b877a34,OCI_HTYPE_STMT)=SUCCESS
       ERROR: -1 'called with 11541898 bind variables when 7 are neede
+d' (err#0)
    <- DESTROY= ( undef ) [1 items] at /mycode/start/../cpan/lib/Try/T
+iny.pm line 90 via  at /mycode/start/../cpan/lib/Try/Tiny.pm line 90

[download]

PERL version: 5.12.1

DBI version: 1.611

DBD::Oracle: 1.21

We have made a standalone script and it works perfectly even with 20000 entries per array. We are using perl objects all over the code, can this be a memory leak?!

BTW, I will post in dbi-users as well. Thanks!

In reply to Re^2: DBI Oracle Input Array Binds by hhferreira
in thread DBI Oracle Input Array Binds by hhferreira

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.