01  #!perl -w
02  use strict;
03  use DBI;
04  my $DS="dbi:mysql:QuizTaker";
05  my $User="tstanley";
06  my $File="A_Plus_Core.psv";
07  
08  open(FH,"$File")||die"Can't open $File: $!\n";
09  my @Array=<FH>;
10  close FH;
11
12  my $dbh=DBI->connect($DS,$User, { RaiseError => 1 } )
13    ||die"Can't connect: $DBI::errstr\n";
14
15  my $AnswerE="NULL";
16  my $sql = 'INSERT INTO Questions values(?,?,?,?,?,?,?,?)';
17  my $sth=$dbh->prepare( $sql );
18
19  foreach my $element(@Array){
20    chomp( my @data =split /\|/,$element, 8 );
21    splice @data, -1, 0, $AnswerE;
22    $sth->execute( @data );
23  }
24
25  $dbh->disconnect;