Perl 与MySQL交互示例代码

示例代码（一）

示例代码（二）

 
 

#!/bin/env?perl?
  
  
?
  
  
use?strict;?
  
  
use?Getopt::Std;?
  
  
use?DBI;?
  
  
?
  
  
my?%options;?
  
  
?
  
  
getopts('u:p:d:h:help',%options); //冒号代表其后需要跟一个参数
  
  
?
  
  
if?(scalar(keys?%options)?<?4)?{?
  
  
????????printf?"USAGEn";?
  
  
????????printf?"t%s?-u?username?-p?password?-d?database?-h?hostname/ipn","$0";?
  
  
????????exit?0;?
  
  
}?
  
  
?
  
  
my?$username?=?$options{u}?if?defined?$options{u};?
  
  
my?$password?=?$options{p}?if?defined?$options{p};?
  
  
my?$database?=?$options{d}?if?defined?$options{d};?
  
  
my?$hostname?=?$options{h}?if?defined?$options{h};?
  
  
 

  
  
my?$dsn?=?"DBI:mysql:database=$database;host=$hostname;port=3306";?
  
  
my?$dbh?=?DBI->connect($dsn,"$username","$password",{PrintError=>0,RaiseError=>1})?
  
  
???????????????or?die?"Can't?connect?to?mysql"?.?DBI->errstr;?
  
  
?
  
  
my?$table?=?qq/?
  
  
??????????????CREATE?TABLE?IF?NOT?EXISTS?test?(?
  
  
??????????????order_id?int(5)?not?null?auto_increment,?
  
  
??????????????name?varchar(10)?not?null?default?'',?
  
  
??????????????email?varchar(20)?not?null?default?'',?
  
  
??????????????PRIMARY?KEY?(order_id));?
  
  
??????????????/;?
  
  
?
  
  
my?$sth?=?$dbh->prepare($table);?
  
  
???$sth->execute();?
  
  
?
  
  
my?$data?=?qq/?
  
  
?????????????INSERT?INTO?test?VALUES?
  
  
?????????????(null,'henry','henry@abc.com'),?
  
  
?????????????(null,'tom','tom@abc.com'),?
  
  
?????????????(null,'teddy','teddy@abc.com');?
  
  
?????????????/;?
  
  
?
  
  
????$sth?=?$dbh->do($data);?
  
  
????my?$query?=?qq/SELECT?*?FROM?test/;?
  
  
?
  
  
???$sth?=?$dbh->prepare($query);?
  
  
???$sth->execute();?
  
  
?
  
  
while?(my?@array?=?$sth->fetchrow_array())?{?
  
  
???????print?join?"t",@array,"n";?
  
  
}?