使用Perl连接Mysql数据库

ReadyGo!技术成就梦想网络搜索 efish 2008-2-24 2:49:38

网站后台数据库转为Mysql，现在使用Perl连接数据库就方便多了。

通过DBI，Perl可以很容易的连接到数据库:

#!/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();

执行结果:

# perl test.cgi
eygle

以后很多统计数据可以直接通过Perl写入Mysql数据库，操作起来方便多了。
看来这次迁移是值得的：）

-The End-

责任编辑: efish 参与评论查找更多：

相关文章

Perl变量(1)--纯变量 Perl变量(1)--纯变量

Perl变量(2)--数组 Perl变量(2)--数组

Perl常规表达式(2) Perl常规表达式(2)

Perl变量(3)--关联数组 Perl变量(3)--关联数组

Perl常规表达式(1) Perl常规表达式(1)

Perl语言全面编译（一） Perl语言全面编译（一）

Perl语言全面编译（三） Perl语言全面编译（三）

Perl语言全面编译（二） Perl语言全面编译（二）

各种平台下Perl模块的安装方法各种平台下Perl模块的安装方法

Perl语言全面编译（四） Perl语言全面编译（四）

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn