Comment puis-je insérer un tableau de données dans MySQL, Perl?

Je parse un fichier texte avec le script ci-dessous.

Comment insérer le tableau des données d'une table MySQL?

J'ai déjà appris Perl MySQL DBI méthode connect. Et je peux connect to local MySQL DB avec succès. Je peux créer la table avec MySQL en ligne de commande. 

#!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

Je veux le table parcourir résultat. 

 Item1 Item2 Itme3 Item4 

A B C D 

E F G H
  • Vos commentaires ne sont pas en synchronisation avec le code: Où est @rocks? Vos noms de variable mentir au lecteur: $array n'est pas un tableau ref que l'on pourrait attendre. Plus: s/talbe/table/
  • Salut Sinan, j'ai mis à jour mon post.Merci pour votre gentil commentaire.
InformationsquelleAutor Nano HE | 2010-01-25
  1. 8
    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
    • Salut FM, il fonctionne très bien. Pourriez-vous me donner plus dissecion sur RaiseError => 1, AutoCommit => 1 ?, Je ne peux pas le comprendre. Je vous remercie.
    • IL: Prendre un regard sur les manuels de search.cpan.org/perldoc?DBI. Tout y est décrite
    InformationsquelleAutor FMc