通过使用DBI,用Perl可以很容易的连接到MysqL数据库:
代码如下:
代码如下:
#!/bin/perl
use DBI;
# Connect to target DB
my $dbh = DBI->connect("DBI:MysqL:database=eygle;host=localhost","username","password",{'raiseerror' => 1});
# Insert one row
my $rows = $dbh->do("INSERT INTO test (id,name) VALUES (1,'eygle')");
# query
my $sqr = $dbh->prepare("SELECT name FROM test");
$sqr->execute();
while(my $ref = $sqr->fetchrow_hashref()) {
print "$ref->{'name'}n";
}
$dbh->disconnect();
执行结果:
代码如下:
[root@eygle ~]# perl test.cgi
eygle
eygle
以后很多统计数据可以直接通过Perl写入MysqL数据库,操作起来方便多了。
原文地址:https://www.jb51.cc/php/24803.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。