perl连接mysql的例子

1. #!/bin/perl 
2.  
3. # load module 
4. use DBI; 
5.  
6. # connect 
7. my $dbh = DBI->connect("DBI:mysql:database=db2;host=localhost", "joe", "guessme", {'RaiseError' => 1}); 
8.  
9. # execute INSERT query 
10. my $rows = $dbh->do("INSERT INTO users (id, username, country) VALUES (4, 'jay', 'CZ')"); 
11. print "$rows row(s) affected "; 
12.  
13. # execute SELECT query 
14. my $sth =$dbh->prepare("SELECT username, country FROM users"); 
15. $sth->execute(); 
16.  
17. # iterate through resultset 
18. # print values 
19. while(my $ref =$sth->fetchrow_hashref()) { 
20.     print "User: $ref-> "; 
21.     print "Country: $ref-> "; 
22.     print "---------- "; 
23. } 
24.  
25. # clean up 
26. $dbh->disconnect(); 

      本文转自yifangyou 51CTO博客，原文链接：http://blog.51cto.com/yifangyou/603505，如需转载请自行联系原作者