22 |
sub insert { |
sub insert { |
23 |
my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")"; |
my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")"; |
24 |
$sql=~s/,\+(\d)/,$1/g; # nuke + which pgsql doesn't like |
$sql=~s/,\+(\d)/,$1/g; # nuke + which pgsql doesn't like |
25 |
# $dbh->do("$sql") || die "$sql\n".$DBI::errstr; |
$dbh->do("$sql") || die "$sql\n".$DBI::errstr; |
26 |
print "$sql\n" if ($debug); |
print "$sql\n" if ($debug); |
27 |
$market++ |
$market++ |
28 |
|
|