这篇文章主要介绍了通过dbi使用perl连接mysql数据库的方法,需要的朋友可以参考下，通过使用DBI，用Perl可以很容易的连接到mysql数据库: 

1. #!/bin/perl  
2.  
3. use DBI;  
4.  
5. # Connect to target DB  
6. my $dbh = DBI->connect("DBI:mysql:database=eygle;host=localhost","username","password", {'RaiseError' => 1});  
7.  
8. # Insert one row  
9. my $rows = $dbh->do("INSERT INTO test (id, name) VALUES (1, 'eygle')");  
10.  
11. # query  
12. my $sqr = $dbh->prepare("SELECT name FROM test");  
13. $sqr->execute();  
14.  
15. while(my $ref = $sqr->fetchrow_hashref()) {  
16. print "$ref->{'name'}n";  
17. }  
18.  
19. $dbh->disconnect();  

执行结果:

[root@eygle ~]# perl test.cgi

eygle

以后很多统计数据可以直接通过Perl写入Mysql数据库，操作起来方便多了。 

Tags: dbi perl

分享到：