#!/usr/bin/perl
use DBI;
use strict;
use warnings;

# Connect to the database
my $dbh = DBI->connect('DBI:mysql:mirnas', 'root', 'bi0u90ee')
    or die "Couldn't open database: $DBI::errstr; stopped";
    
my $filename = $ARGV[0];
my $table_name = $ARGV[1];
open(INPUT, '<', $filename) or die "Open failed $filename: $!";

#getting the column names from the text file
my $line = <INPUT>;
chomp($line);
my @fields = split('\t+', $line); # prevent undefs
foreach my $field (@fields){
    print "$field\n";
}

# SQL fragment for creating right number of columns
my $column_fragment = <<EOSQL;

?   TEXT    NOT NULL,

EOSQL
$column_fragment x= @fields;
$column_fragment =~ s/,\s*$/\n/; # Strip trailing comma

# Whole CREATE TABLE statement with placeholders
my $sql = <<EOSQL;

CREATE TABLE ? (
$column_fragment
)

EOSQL

# Binding and execution
my $sth = $dbh->prepare($sql) or die "Prepare failed: $DBI::errstr";
$sth->bind_param(1, $table_name) or die "Bind failed: $DBI::errstr";
for my $i (0 .. $#fields) {
    $sth->bind_param($i+2, $fields[$i]) or die "Bind failed: $DBI::errstr";
}
$sth->execute or die "Execute failed: $DBI::errstr";