perl中的DBI（数据库接口，Database Interface）是个对数据库操纵很强大的东西，这次正好工作中用到了他的一点皮毛所以做个记录。
具体情况就是插入多条记录
#!/usr/bin/perl
use DBI;
open AA,"c1";
my $dbname="sverlog";
my $location="localhost";
my $port="3306";
my $database="DBI:mysql:$dbname:$location:$port";
$dbh = DBI->connect($database,"mcshell","mcshell");
while(<AA>){
chomp;
if (/[^www]\s+(\S+)\s+(\S+);/){
my $sql="insert into webconfig (domain,webdir) values('$1','$2')";
my $sth=$dbh->prepare($sql);
$sth->execute() or die "无法执行SQL语句：$dbh->errstr";
}
}
$dbh->disconnect();
close AA;
use DBI;
open AA,"c1";
my $dbname="sverlog";
my $location="localhost";
my $port="3306";
my $database="DBI:mysql:$dbname:$location:$port";
$dbh = DBI->connect($database,"mcshell","mcshell");
while(<AA>){
chomp;
if (/[^www]\s+(\S+)\s+(\S+);/){
my $sql="insert into webconfig (domain,webdir) values('$1','$2')";
my $sth=$dbh->prepare($sql);
$sth->execute() or die "无法执行SQL语句：$dbh->errstr";
}
}
$dbh->disconnect();
close AA;
查询数据库可以添加
while(my @row=$sth->fetchrow_array()){
print ("@row\n");
}
print ("@row\n");
}
本文转自 mcshell 51CTO博客，原文链接：http://blog.51cto.com/mcshell/495391，如需转载请自行联系原作者
