perl笔记之DBI操纵数据库

发布时间：2020-12-16 00:42:38 所属栏目：大数据来源：网络整理

导读：perl中的DBI（数据库接口，Database Interface）是个对数据库操纵很强大的东西，这次正好工作中用到了他的一点皮毛所以做个记录。具体情况就是插入多条记录 #!/usr/bin/perl use DBI; open AA,"c1"; my $dbname="sverlog"; my $location="localhost"; my $p

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 ("@rown"); }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!