Как я могу вставить данные массива в MySQL в Perl? - PullRequest
Новая
       22

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

2 голосов
/ 25 января 2010

Я анализирую текстовый файл с помощью скрипта ниже.

Как вставить данные массива в таблицу 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

1 Ответ

8 голосов
/ 25 января 2010 
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
...