perl连接mysql数据库

caojiangfeng

1. #!/usr/bin/perl -w
   
2. 
   
3. #The script is used to connect mysql and show table members of the
   
4. #database library
   
5. use DBI();
   
6. $datetime=$ARGV[0];
   
7. $event=$ARGV[1];
   
8. $path=$ARGV[2];
   
9. #connect
   
10. my $dbh = DBI->connect("DBI:mysql:database=log;host=localhost","root","ceagle",
    
11.         {'RaiseError'=>1,'AutoCommit'=>0});
    
12. 
    
13. #execute query
    
14. #my $sth = $dbh->prepare("SELECT * from members");
    
15. #$sth->execute();
    
16. eval
    
17. {
    
18.     #insert data to members
    
19.         $dbh->do("insert into loginfo values (NULL,'$datetime','$event','$path')");
    
20.         $dbh->commit();
    
21. 
    
22. };
    
23. #iterate through resultset
    
24. my $sth = $dbh->prepare("SELECT * from loginfo");
    
25. 
    
26. $sth->execute();
    
27. print "id\t\tdatetime\tevent\tpath","\n";
    
28. while (my $ref = $sth->fetchrow_hashref()) {
    
29.   print "$ref->{'logid'}\t\t$ref->{'datetime'}\t$ref->{'event'}\t$ref->{'path'}\n";
    
30. }
    
31. 
    
32. #Delete the data
    
33. #eval
    
34. #{
    
35. #    $dbh->do("delete from members where fname = 'cao' ");
    
36. #    $dbh->commit();
    
37. #
    
38. #};
    
39. if ($@){
    
40.     print "Transaction aborted:$@";
    
41.     $dbh->rollback();
    
42. }
    
43. #clean up
    
44. $sth->finish();
    
45. $dbh->disconnect();