#!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;

my $dsn = "DBI:mysql:database=player;";
my $dbh = DBI->connect($dsn, "root", "secretpassword");

open IN, "<table.txt" or die "Error - failed to open file for reading: $!\n";
while ( <IN> )
{
  chomp;
  my ($null,$prof,$s,$ra,$cm,$class,$source) = split /\|/;

  my $sql =<<SQLDONE ;
INSERT INTO proficiencies VALUES ( '$prof', $s, '$ra', $cm, '$class', '$source' );
SQLDONE
  print "$sql\n";
  my $sth = $dbh->prepare($sql);
  $sth->execute;
}
print "finished loading table\n";