#!/usr/bin/perl -w
use strict;
use warnings;
use File::Basename;

    use DBI;
    use DBD::mySQL;
    my $data_path="D:\\NickD\\Project\\StockData\\"; 
    my $db = "TestMMDB";
    my $user = "user";
    my $pass ="pass";
    my $host = "localhost";
    my $query ="";
    my @row;   
    
## First get all files to upload, scan names, identify table to be uploaded in
    my @files = glob("$data_path*.csv");
    DBI->trace(1);

## Connect to the database    
    my $dbh = DBI->connect("dbi:mysql:$db:$host",$user,$pass);
## Gather the files to upload to DB
    foreach my $file(@files){
        my $filename = basename($file);
        my ($db_table,$date) = split("_",$filename);       
## Create Query        
#    $query ="SELECT * FROM $db.$db_table";

        $query = q{LOAD DATA INFILE ? INTO TABLE ? FIELDS TERMINATED BY ',' (Date,Symbol,Open,High,Low,Close,Volume)};      
    
    my $sqlQuery = $dbh->prepare($query);
    my $rv = $sqlQuery->execute($file,$db.".".$db_table) or die "Oops!: Can't execute the query :".$sqlQuery->errstr;
    while (@row = $sqlQuery->fetchrow_array()) {
        print "@row\n";
        } 
    }
    my $rc = $dbh->disconnect();
    exit(0);