Как вставить данные массива в MySQL в Perl?

Question

Я разбираю текстовый файл со сценарием ниже.

Как вставить данные массива в таблицу MySQL?

Я уже изучил метод подключения DBI для Perl MySQL. И я могу успешно подключиться к локальному БД MySQL. Я могу создать таблицу с командной строкой MySQL.

#!C:\Perl\bin\perl.exe 
use strict; 
use warnings; 

while (<DATA>) { 
    my @rocks = split(/\s+/, $_); 

    foreach my $rock (@rocks) { 

    $rock = "\t$rock "; # put a tab in front of each element of @rocks 

    $rock .= "\n"; # put a newline on the end of each 

    print $rock ; 
    } 
} 

__DATA__ 
A B C D 
E F G H 

Я хочу таблицы результатов просмотра.

 
     Item1 Item2 Itme3 Item4 

     A  B  C  D 

     E  F  G  H 

Answer 1

use strict; 
use warnings; 
use DBI; 

my $dbh = DBI->connect(
    'DBI:mysql:database=test;host=localhost', 
    'root', 
    'YOUR_PASSWORD', 
    { RaiseError => 1, AutoCommit => 1 }, 
); 

my $sql = 'INSERT INTO foo (Item1,Item2,Item3,Item4) VALUES (?,?,?,?)'; 
my $sth = $dbh->prepare($sql); 

while (<DATA>){ 
    chomp; 
    my @vals = split /\s+/, $_; 
    $sth->execute(@vals); 
} 

__END__ 
A B C D 
E F G H