CSV to SQL

import.pl

#!/usr/bin/env perl

use warnings;
use strict;

# Read the first parameter: tablename.
my $tablename = shift;

# The first line holds the names of the fields.
my $fields = <>;
chomp $fields;

print "INSERT INTO $tablename ($fields) values";

my $firstline = 1;

while (<>) {
    chomp;
    if ($firstline) {
        # The first insert is special-cased to avoid a trailing comma.
        print "\n";
        $firstline = 0;
    } else {
        # The rest of the VALUE groups are comma-separated.
        print ",\n";
    }

    print "('" . join ("','", split(/\s*,\s*/)) . "')";
}

print ";\n";