SQL Import

import.pl

#!/usr/bin/perl
use strict;

my $table = shift;

open(my $fh, '<',shift) or die $!;

my $exportfile = shift;

open (FILE,">",$exportfile);

my $fields;

my $firstLine = <$fh>;
my @reg = split(/,/,$firstLine );
$fields = join(",",@reg);
print $fields;

while(<$fh>) {
  my @reg = split(/,/,$_ );
  my $export = "insert into $table($fields) values(\'".(join("\',\'",@reg))."\');";
  print FILE $export . "\n";
}

close(FILE);