示例代码（一）

示例代码（二）

1. #!/bin/env perl 
2.  
3. use strict; 
4. use Getopt::Std; 
5. use DBI; 
6.  
7. my %options; 
8.  
9. getopts('u:p:d:h:help',\%options); //冒号代表其后需要跟一个参数
10.  
11. if (scalar(keys %options) < 4) { 
12.         printf "USAGE\n"; 
13.         printf "\t%s -u username -p password -d database -h hostname/ip\n","$0"; 
14.         exit 0; 
15. } 
16.  
17. my $username = $options{u} if defined $options{u}; 
18. my $password = $options{p} if defined $options{p}; 
19. my $database = $options{d} if defined $options{d}; 
20. my $hostname = $options{h} if defined $options{h}; 
22. my $dsn = "DBI:mysql:database=$database;host=$hostname;port=3306"; 
23. my $dbh = DBI->connect($dsn,"$username","$password",{
    PrintError=>0,RaiseError=>1}) 
24.                or die "Can't connect to mysql" . DBI->errstr; 
25.  
26. my $table = qq/ 
27.               CREATE TABLE IF NOT EXISTS test ( 
28.               order_id int(5) not null auto_increment, 
29.               name varchar(10) not null default '', 
30.               email varchar(20) not null default '', 
31.               PRIMARY KEY (order_id)); 
32.               /; 
33.  
34. my $sth = $dbh->prepare($table); 
35.    $sth->execute(); 
36.  
37. my $data = qq/ 
38.              INSERT INTO test VALUES 
39.              (null,'henry','henry\@abc.com'), 
40.              (null,'tom','tom\@abc.com'), 
41.              (null,'teddy','teddy\@abc.com'); 
42.              /; 
43.  
44.     $sth = $dbh->do($data); 
45.     my $query = qq/SELECT * FROM test/; 
46.  
47.    $sth = $dbh->prepare($query); 
48.    $sth->execute(); 
49.  
50. while (my @array = $sth->fetchrow_array()) { 
51.        print join "\t",@array,"\n"; 
52. } 

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