Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: fetchrow_array loop in perl 5.10

by Anonymous Monk
on Sep 18, 2014 at 09:02 UTC ( [id://1101019]=note: print w/replies, xml ) Need Help??


in reply to Re: fetchrow_array loop in perl 5.10
in thread fetchrow_array loop in perl 5.10

from
DBD::DB2 :1.78
DBI :1.611

to:

DBD::DB2 :1.85
DBI :1.631

Replies are listed 'Best First'.
Re^3: fetchrow_array loop in perl 5.10
by mje (Curate) on Sep 18, 2014 at 10:07 UTC

    Could you cut the code down to the smallest that fails then run with DBI_TRACE env var set to 15 like this:

    DBI_TRACE=15=x.log export DBI_TRACE run code show us the last few hundred lines of x.log
      <- fetchrow_array= ( '48044' 'URL_TEXT_1' undef '' undef undef 'A' '1226480' ) 8 items row1 at DB.pm line 962
      <- STORE('private_dbdriver', 'DB2')= 1 at DB.pm line 964
      <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at DB.pm line 965
      <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at nl_asset_insert_test_err.pl line 94
      <- FETCH('Database')= DME::DB::db=HASH(0x80861508) at DB.pm line 1011
      <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 1015
      <- execute(13453, "URL_TEXT_1", ...)= 1 at DB.pm line 1020
      <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at nl_asset_insert_test_err.pl line 96
      <- FETCH('Database')= DME::DB::db=HASH(0x80861508) at DB.pm line 957
      <- STORE('private_dbdriver', 'DB2')= 1 at DB.pm line 964
      <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at DB.pm line 965
      <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at nl_asset_insert_test_err.pl line 94
      <- FETCH('Database')= DME::DB::db=HASH(0x80861508) at DB.pm line 1011
      <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 1015
      <- execute(13453, "URL_LINK_1", ...)= 1 at DB.pm line 1020
      <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at nl_asset_insert_test_err.pl line 96
      <- FETCH('Database')= DME::DB::db=HASH(0x80861508) at DB.pm line 957 ----> $sth->SUPER::fetchrow_array();
      <- HandleSetErr= 0 (err='', errstr='', state='00000', undef)
      info: '' '' (err#0)

      as you can see, it only loops up to 2 rows then raised an error after.

        I would have preferred to see a bit more than this. I cannot help any further based on that log. Not enough context.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1101019]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2024-04-23 20:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found