Re^6: Perl DBI execute statement

I have the sections grouped together that do fetching for the rows and then a section for the inserts .So the group of fetch calls for rows appear before the group of inserts. The solution was as HUCK presented . Thank you for your reply poj

Comment on Re^6: Perl DBI execute statement

Replies are listed 'Best First'.
Re^7: Perl DBI execute statement by poj (Abbot) on Dec 14, 2016 at 08:34 UTC
But unless you nest the 2 loops if this query returns multiple IDs `my $feed_table_ext_idcode = $dbh2->prepare( "SELECT id_code FROM $feed_table WHERE entry_time >= ?"); $feed_table_ext_idcode->execute($time);` [download] then only records with the last ID will be selected/inserted in the second loop because the records with the other IDs will have been discarded in the first select loop. `while (my @row = $feed_table_ext_idcode->fetchrow_array()) { #print "@row\n"; $feed_table_ext_results->execute(@row); }` [download] poj	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^7: Perl DBI execute statement
by poj (Abbot) on Dec 14, 2016 at 08:34 UTC

But unless you nest the 2 loops if this query returns multiple IDs

my $feed_table_ext_idcode = $dbh2->prepare(
    "SELECT id_code
     FROM $feed_table WHERE entry_time >= ?");
$feed_table_ext_idcode->execute($time);
[download]

then only records with the last ID will be selected/inserted in the second loop because the records with the other IDs will have been discarded in the first select loop.

while (my @row = $feed_table_ext_idcode->fetchrow_array())
{
  #print "@row\n";
  $feed_table_ext_results->execute(@row);
}
[download]

[reply]
[d/l]
[select]