in reply to Re^2: fetchrow_array loop in perl 5.10
in thread fetchrow_array loop in perl 5.10
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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: fetchrow_array loop in perl 5.10
by Anonymous Monk on Sep 18, 2014 at 13:26 UTC | |
<- 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. | [reply] [Watch: Dir/Any] |
by mje (Curate) on Sep 18, 2014 at 15:08 UTC | |
I would have preferred to see a bit more than this. I cannot help any further based on that log. Not enough context. | [reply] [Watch: Dir/Any] |
by Anonymous Monk on Sep 18, 2014 at 15:44 UTC | |
<> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 298 <- prepare("DELETE FROM nl_asset WHERE asset_block_id = ?", undef)= DME::DB::st=HASH(0x8084b8c8) at DB.pm line 245 <- FETCH('Database')= DME::DB::db=HASH(0x80861148) at DB.pm line 1010 <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 1014 <- HandleSetErr= 0 (err=undef, errstr=undef, state=undef, undef) <- set_err(undef, undef)= undef at DB.pm line 104 <- HandleSetErr= 1 (err='', errstr='IBMCLI DriverDB2/LINUXZ64 SQL0100W No row was found for FETCH, UPDATE or DELETE; or the result of a query is an empty table. SQLSTATE=02000 ', state='02000', undef) <- execute(13453)= '0E0' at DB.pm line 1019 <- finish= 1 at nl_asset_insert_test_err.pl line 74 <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 298 <- prepare("SELECT asset_id, field_name, mime_type, text_asset, clob_asset, blob_asset, status, add_user FROM nl_asset WHERE asset_block_id = ? and status = ? order by field_name desc", undef)= DME::DB::st=HASH(0x8020c3d8) at DB.pm line 245 <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 298 <- prepare("insert into nl_asset (asset_id, asset_block_id, field_name, text_asset, clob_asset, blob_asset, mime_type, add_user, add_dttm, status) values (next value for NL_ASSET_SEQ, ?, ?, ?, ?, ?, ?, ?, current timestamp, ?)", undef)= DME::DB::st=HASH(0x8084ba48) at DB.pm line 245 <- FETCH('Database')= DME::DB::db=HASH(0x80861148) at DB.pm line 1010 <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 1014 <- execute(12959, "A")= -1 at DB.pm line 1019 <- FETCH('Database')= DME::DB::db=HASH(0x80861148) at DB.pm line 957 <- fetchrow_array= ( '48044' 'URL_TEXT_1' undef '' undef undef 'A' '1226480' ) 8 items row1 at DB.pm line 962 <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at DB.pm line 964 <- FETCH('Database')= DME::DB::db=HASH(0x80861148) at DB.pm line 1010 ############## retrieving 1 out of 4 records <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 1014 <- execute(13453, "URL_TEXT_1", ...)= 1 at DB.pm line 1019 ############## execute insert 1 out of 4 records <- errstr= undef at nl_asset_insert_test_err.pl line 95 <- FETCH('Database')= DME::DB::db=HASH(0x80861148) at DB.pm line 957 <> FETCH('private_dbdriver')= 'DB2' ('private_dbdriver' from cache) at DB.pm line 964 <- FETCH('Database')= DME::DB::db=HASH(0x80861148) at DB.pm line 1010 ############## retrieving 2 out of 4 records <> FETCH('private_dbcharset')= 'UTF8' ('private_dbcharset' from cache) at DB.pm line 1014 <- execute(13453, "URL_LINK_1", ...)= 1 at DB.pm line 1019 ############## execute insert 2 out of 4 records <- errstr= undef at nl_asset_insert_test_err.pl line 95 <- FETCH('Database')= DME::DB::db=HASH(0x80861148) at DB.pm line 957 ############# retrieving 3 out of 4 records --> ERROR occurred -- $sth->SUPER::fetchrow_array();. <- HandleSetErr= 0 (err='', errstr='', state='00000', undef) info: '' '' (err#0) <- DESTROY(DME::DB::st=HASH(0x8084bc58))= undef at nl_asset_insert_test_err.pl line 43 info: '' '' (err#0) <- DESTROY(DME::DB::st=HASH(0x8084bc10))= undef at nl_asset_insert_test_err.pl line 43 info: '' '' (err#0) <- DESTROY(DME::DB::st=HASH(0x80861268))= undef at nl_asset_insert_test_err.pl line 43 info: '' '' (err#0) <> FETCH('private_connected')= 1 ('private_connected' from cache) at DB.pm line 214 info: '' '' (err#0) <- FETCH('AutoCommit')= 1 at DB.pm line 215 !! The info '''' was CLEARED by call to disconnect method <- disconnect= 1 at DB.pm line 217 <- STORE('private_connected', 0)= 1 at DB.pm line 218 ! <- DESTROY(DME::DB::db=HASH(0x80861148))= undef during global destruction | [reply] [Watch: Dir/Any] |
by mje (Curate) on Sep 19, 2014 at 08:38 UTC | |
by Anonymous Monk on Sep 19, 2014 at 08:46 UTC | |
|
In Section
Seekers of Perl Wisdom