How can I insert array data into MySQL in Perl?
12,133
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
Author by
Nano HE
A newbie, China based; And I am new to programming. Work mostly with C#, C++, Perl & Php; Using OS: winxp; C#/C++: Visual Studio 2005/2008; Perl: Active Perl 5.10.1 + Komodo Edit 6; Php: NetBeans IDE 6.7 + XAMPP 1.7.3 Thanks for reading and for the replies! ;) I'm Reading Magic Tree House
Updated on June 04, 2022Comments
-
Nano HE almost 2 years
I parse a text file with the script below.
How to insert the array data to MySQL table?
I already learned Perl MySQL DBI connect method. And I can connect to local MySQL DB successfully. I can create the table with MySQL command line.
#!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
I want the table browse result.
Item1 Item2 Itme3 Item4 A B C D E F G H
-
silbana over 14 yearsYour comments are not in sync with the code: Where is
@rocks
? Your variable names lie to the reader:$array
is not an array ref as one might expect. Plus:s/talbe/table/
-
Nano HE over 14 yearsHi Sinan, I revised my post.Thanks for your nice comment.
-
-
Nano HE over 14 yearsHi FM, it works very well. Could you please give me more dissecion about
RaiseError => 1, AutoCommit => 1
?, I can't understand it. Thank you. -
Ivan Nevostruev over 14 years@Nano HE: Take a look at manuals search.cpan.org/perldoc?DBI. Everything is described there