Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: fetchrow_array loop in perl 5.10

by mje (Curate)
on Sep 18, 2014 at 08:27 UTC ( #1101014=note: print w/replies, xml ) Need Help??


in reply to fetchrow_array loop in perl 5.10

You definitely do not want to call finish on that insert statement. However, I see you say commenting it out does not help. What DBD are you using and what are the versions of it and DBI?

Replies are listed 'Best First'.
Re^2: fetchrow_array loop in perl 5.10
by Anonymous Monk on Sep 18, 2014 at 09:02 UTC
    from
    DBD::DB2 :1.78
    DBI :1.611

    to:

    DBD::DB2 :1.85
    DBI :1.631

      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.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2019-07-19 10:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?