currently there are 312 lines.

My insert statements are 
    #Prepare insert statement for feed table 
    $sth_insert = $dbh3->prepare("INSERT IGNORE INTO $feed_table (id_c
+ode, entry_time, parent_id_code, author_name, author_code, author_url
+, author_image_url, entry_url, entry_types, status_code, entry_text, 
+entry_data, last_update, pull_time, queue_code) VALUES (?, ?, ?, ?, ?
+, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)") or die $dbh3->errstr;

    ##prepare insert statement for feed table ext
    my $ext_insert = $dbh3->prepare("INSERT IGNORE INTO $feed_table_ex
+t (id_code, item_name, item_value, item_data) VALUES (?, ?, ?, ?)") o
+r die $dbh3->errstr;

    ##prepare insert table for feed table category
    my $cat_insert = $dbh3->prepare("INSERT IGNORE INTO $feed_table_ca
+tegory (id_code, category_class_code, category_code, user_name, cat_t
+ime) VALUES (?, ?, ?, ?, ?)") or die $dbh3->errstr;

    ##prepare insert table for feed table log    
    my $log_insert = $dbh3->prepare("INSERT IGNORE INTO $feed_table_lo
+g (id_code, action_time, action_usec, action_code, action_type, user_
+id, processor_id, action_text) VALUES (?, ?, ?, ?, ?, ?, ?, ?)") or d
+ie $dbh3->errstr;


#get table results from production stream table
my $activate_info= $dbh->prepare("SELECT source_code, stream_code, cli
+ent_id, stream_oauth_id, name, url, status_code, stream_data, feed_db
+, feed_table, last_update, report_db, sla, exclude_request, owned, pu
+sh FROM stream WHERE id = ?");

$activate_info->execute($client_ID);

##prepare the insert statement 
 $activate_stream = $dbh4->prepare("INSERT INTO stream (source_code, s
+tream_code, client_id, stream_oauth_id, name, url, status_code, strea
+m_data, feed_db, feed_table, last_update, report_db, sla, exclude_req
+uest, owned, push) VALUES(?, ?, 10, 1, ?, ?, \'DISABLED\', ?, \'socia
+l_patrol_feed002\', ?, ?, ?, ?, ?, ?, ?)");

                            

##Insert statement execution
print "Dropping $feed_table table..\n";
#sleep(3);
$dbh3->do("DROP TABLE IF EXISTS $feed_table");            
print "Recreating $feed_table table..\n";
#sleep(3);
my $qy = $dbh2->prepare("SHOW CREATE TABLE $feed_table");
$qy->execute();

my $feed_table_create = $qy->fetchrow_array();

$dbh3->do("$feed_table_create");        
print "Inserting data into $feed_table table..\n";
#sleep(3);
while (my @insert = $table_results->fetchrow_array())
                {
$sth_insert->execute(@insert) or die $sth_insert->errstr;
                }
#$sth_insert->finish();

##Insert ext execution
print "Dropping $feed_table_ext table..\n";
#sleep(3);
#$dbh3->do("DROP TABLE IF EXISTS $feed_table_ext");
                    
print "Recreating $feed_table_ext table..\n";
#sleep(3);

#my $qy_ext = $dbh2->prepare("SHOW CREATE TABLE $feed_table_ext");

#$qy_ext->execute();

#my $feed_table_ext_create = $qy_ext->fetchrow_array();
#  $dbh3->do("$feed_table_ext_create");

print "Inserting data into $feed_table_ext table..\n";
#sleep(3);
while (my @insert_ext = $feed_table_ext_results->fetchrow_array())
{
#print "@insert_ext\n";
$ext_insert->execute(@insert_ext) ;
                            }
#    $ext_insert->finish();

##Insert category execution
print "Dropping $feed_table_category table..\n";
#sleep(3);
$dbh3->do("DROP TABLE IF EXISTS $feed_table_category");

print "Recreating $feed_table_category table..\n";
#sleep(3);
my $qy_cat = $dbh2->prepare("SHOW CREATE TABLE $feed_table_category");
$qy_cat->execute();
my $feed_table_cat_create = $qy_cat->fetchrow_array();
        
$dbh3->do("$feed_table_cat_create");
        
print "Inserting data into $feed_table_category table..\n";
  #sleep(3);
while (my @insert_cat = $feed_table_category_results->fetchrow_array()
+)
    {
$cat_insert->execute(@insert_cat) or die $sth_insert->errstr;
          }
#        $cat_insert->finish();

##Insert log table execution
print "Dropping $feed_table_log table..\n";
  #sleep(3);
$dbh3->do("DROP TABLE IF EXISTS $feed_table_log");
                                                
print "Recreating $feed_table_log table..\n";
     #sleep(3);
my $qy_log = $dbh2->prepare("SHOW CREATE TABLE $feed_table_log");
 $qy_log->execute();
 my $feed_table_log_create = $qy_log->fetchrow_array();
                                    
       $dbh3->do("$feed_table_log_create");
                
print "Inserting data into $feed_table_log table..\n";
 #sleep(3);
            
while (my @insert_log = $feed_table_log_results->fetchrow_array())
 {
 $log_insert->execute(@insert_log) or die $sth_insert->errstr;
                                          }
#            $log_insert->finish();




##Prepare insert statement to activate stream
if($sth_insert->errstr)
{
print "The insert statement failed for data $sth_insert->errstr";
        }
     else
                {
            ##Insert statement execution to activate stream
        #print "Will now delete data from stream table with client ID 
+$client_ID\n";
                                
#my $stream_delete = $dbh4->prepare("DELETE FROM stream WHERE id = ?")
+;
#$stream_delete->execute($client_ID);

    
print "Inserting data into STREAM table..\n";
                                           sleep(3);    
    while (my  @activate_results =  $activate_info->fetchrow_array() )
                            {
                                                 $activate_stream->exe
+cute(@activate_results[0, 1, 4, 5, 7, 9 .. 15]) or die $activate_stre
+am->errstr;
                                                                   }  
+  
                
    
                                }
                                #$activate_stream->finish();

[download]

In reply to Re^4: Perl DBI execute statement by cbtshare
in thread Perl DBI execute statement by cbtshare

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.