如何在Perl中將數組數據插入到MySQL中？

Question

我用下面的腳本解析一個文本文件。如何將數組數據插入到MySQL表中？

我已經學過Perl MySQL DBI連接方法。我可以成功連接到本地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