in reply to Re^5: MySQL INSERT in Perl
in thread MySQL INSERT in Perl

hi Dave, here's what $ins_rec looks like with the print: 
my ins_rec is INSERT INTO options (symbol,valuation_dt,expn_dt,strike,
+open,bid,ask,last,volume) VALUES('MCO130119C00055000',now(),'20130118
+',55.00,13,0.67,1.03,1.03,0);

[download]

Replies are listed 'Best First'.
Re^7: MySQL INSERT in Perl
by baperl (Sexton) on Aug 04, 2011 at 18:25 UTC
    wait a minute, I figured it out... here's what happened: for those records that have a price that as N/A, it gives that silly error message, because it cannot understand what 'N' means.....oops! so, I edited my code to handle the N/A in the bid column as follows: 
     foreach my $hr1 (@calls) 
      {
      my %h1 = %{$hr1};

      $h1{'bid'} = ($h1{'bid'} eq 'N/A') ? 0 : $h1{'bid'}; 
          next unless defined $h1{'symbol'};
      
    my $ins_rec="INSERT INTO $table (symbol,valuation_dt,expn_dt,strik
+e,open,bid,ask,last,volume) VALUES(\'$h1{'symbol'}\',now(),\'$exp\',$
+h1{'strike'},$h1{'open'},$h1{'bid'},$h1{'ask'},$h1{'last'},$h1{'volum
+e'});";
      print "my ins_rec is $ins_rec\n";
      my $sth=$dbh->do($ins_rec);
      }

    [download]
    thanks all for your help, especially Dave and NetWallah :-)
[reply]
[d/l]

      Now incorporate placeholders as described in the documentation for DBI. That's even more important lifestyle advice than actually solving your problem. :)


      Dave

[reply]
        will do so:-)
[reply]

In Section Seekers of Perl Wisdom