perl连接mysql的例子

 

 
 

#!/bin/perl 
  
  
 
  
  
# load module 
  
  
use DBI; 
  
  
 
  
  
# connect 
  
  
my $dbh = DBI->connect("DBI:MysqL:database=db2;host=localhost", "joe", "guessme", {'raiseerror' => 1}); 
  
  
 
  
  
# execute INSERT query 
  
  
my $rows = $dbh->do("INSERT INTO users (id, username, country) VALUES (4, 'jay', 'CZ')"); 
  
  
print "$rows row(s) affected "; 
  
  
 
  
  
# execute SELECT query 
  
  
my $sth = $dbh->prepare("SELECT username, country FROM users"); 
  
  
$sth->execute(); 
  
  
 
  
  
# iterate through resultset 
  
  
# print values 
  
  
while(my $ref = $sth->fetchrow_hashref()) { 
  
  
    print "User: $ref-> "; 
  
  
    print "Country: $ref-> "; 
  
  
    print "---------- "; 
  
  
} 
  
  
 
  
  
# clean up 
  
  
$dbh->disconnect();