Perl DBI MySQL

注意：要设定编码。

点击(此处)折叠或打开

1. #! /usr/bin/env perl
   
2. 
   
3. use strict;
   
4. 
   
5. use warnings;
   
6. 
   
7. use DBI;
   
8. 
   
9. my $hostname = "xxx";
   
10. my $database = "xxx";
    
11. my $username = "xxx";
    
12. my $userpass = "xxx";
    
13. 
    
14. my $dbh = DBI->connect("dbi:mysql:$database:$hostname:3306", $username, $userpass);
    
15. 
    
16. $dbh->do("SET character_set_client='utf8'");
    
17. $dbh->do("SET character_set_connection='utf8'");
    
18. $dbh->do("SET character_set_results='utf8'");
    
19. 
    
20. my $sth = $dbh->prepare("select foo_01, foo_02 from foo_table");
    
21. 
    
22. $sth->execute();
    
23. 
    
24. while (my $row = $sth->fetchrow_hashref())
    
25. {
    
26.     print $row->{'foo_01'};
    
27.     print "\t";
    
28.     print $row->{'foo_02'};
    
29.     print "\n";
    
30. }