perl笔记之DBI操纵数据库

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;

查询数据库可以添加

while(my @row=$sth->fetchrow_array()){ print ("@row\n"); }