perl链接数据库实例

kinght2008

#!D:\Perl64\bin　　

　　
use DBI;
　　
use strict;
　　
#use warnings;
　　

　　
if (@ARGV != 1) {
　　
    print "Please input a Phone Num ~ \nEg:perl sql.pl 18600000000 ~ \n";
　　
}else {
　　
my $tmp = {
　　
    user => 'tmp',
　　
    pass => 'tmp',
　　
    host => '127.0.0.1',
　　
    database => 'tmp',
　　
    port => 3306,
　　
};
　　

　　
my $Phone_num = shift;
　　
chomp $Phone_num;
　　

　　
##链接数据库
　　
my $tmp_dbh=DBI->connect("DBI:mysql:$tmp->{database};host=$tmp->{host};port=$tmp->{port}",$tmp->{user},$tmp->{pass},{RaiseError=>1});
　　
##设置数据库编码
　　
$tmp_dbh->do ("set character_set_client = 'gb2312'");
　　
$tmp_dbh->do ("set character_set_connection = 'gb2312'");
　　
$tmp_dbh->do ("set character_set_results = 'gb2312'");
　　
###查询语句
　　
my $tmp_sql=qq{select * from tmp where phoneNum = $Phone_num ;};
　　
my $tmp_sth=$tmp_dbh->prepare($tmp_sql) or die 'Unable to perpare our query:'.$tmp_dbh->errstr."\n";
　　
###执行语句
　　
my $results=$tmp_sth->execute() or die 'Unable to execute our query:'.$tmp_dbh->errstr."\n";
　　
###如果没有结构，打印N/A
　　
print "N/A" if $results == 0;
　　
###将结果以hash方式引用给$reslut_ref
　　
while (my $reslut_ref = $tmp_sth->fetchrow_hashref){
　　

　　
    print "---------------New Line--------------\n";
　　
    print "id        :    $reslut_ref->{id}\n";
　　
    print "PhoneNum    :    $reslut_ref->{PhoneNum}\n";
　　
    print "status        :    $reslut_ref->{status}\n";
　　
    print "statusDesc    :    $reslut_ref->{statusDesc}\n";
　　
}
　　
#####介于statusDesc字段可能为NULL，打印时会提示该变量未初始化，这也是上面关闭warnings的原因，当然也可以局部关闭；
　　
$tmp_sth->finish();
　　
$tmp_dbh->disconnect();
　　
}