perl笔记之DBI *** 纵数据库

概述perl中的DBI（数据库接口，Database Interface）是个对数据库 *** 纵很强大的东西，这次正好工作中用到了他的一点皮毛所以做个记录。 具体情况就是插入多条记录 #!/usr/bin/perl use DBI; open AA,"c1"; my $dbname="sverlog"; my $location="localhost"; my $port="3306"; my $datab 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"); } 总结

以上是内存溢出为你收集整理的perl笔记之DBI *** 纵数据库全部内容，希望文章能够帮你解决perl笔记之DBI *** 纵数据库所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。