use DBIx::Simple;
use SQL::Abstract;

##</code><code>##

my $q = "INSERT INTO history (`Symbol`,`Company_Name`,`Last_Price`,......,`Mktcap`) VALUES (?,?,?,STR_TO_DATE(?,\'%m/%d/%Y'),TIME(?),?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";

##</code><code>##

DBD::mysql::st execute failed: Column count doesn't match value count at row 1 at rtd.pl line 62.

##</code><code>##

DBD::mysql::st execute failed: called with 29 bind variables when 43 are needed at rtd.pl line 65.

##</code><code>##


$sth = $dbh->prepare($q) or die $dbh->errstr;

#the below includes 'id' which is auto_increment
my @fields = ('id','Symbol','Company Name','Last Price',....,'Market-cap');
my @symbols = ('AA','C');
useRealtimeQueryFormat();
my @quotes = getquote(@symbols);

while ($cc < 22222) 
{
  $cc++;
  foreach my $q (@quotes) {
    my @h = @{$q};
    join("\t",@h),"\n";
    my $c = @h;
    for ( my $i = 0 ; $i < $c ; $i++ ) 
         {
      my $j = 1+ $i;
      $h[$i] =~ s/ +//;
      $h[$i] =~ s/ %//;
      $h[$i] = ($h[$i] eq 'N/A') ? undef : $h[$i];
          }
    $sth->execute(@h);
  }
}