开发者社区> 科技小能手> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

perl链接数据库实例

简介:
+关注继续查看

目标:方便自己快速查询数据库表记录;

示例:

数据库主机:127.0.0.1

数据库名称:tmp

数据库表名:tmp

表结构:

1
2
3
4
5
6
7
8
9
10
mysql> desc tmp.tmp;
+------------+--------------+------+-----+---------+----------------+
| Field      | Type         | Null Key Default | Extra          |
+------------+--------------+------+-----+---------+----------------+
| id         | int(11)      | NO   | PRI | NULL    | auto_increment |
| PhoneNum   | char(11)     | NO   | MUL | NULL    |                |
| status     | int(11)      | NO   |     | NULL    |                |
| statusDesc | varchar(255) | YES  |     | NULL    |                |
+------------+--------------+------+-----+---------+----------------+
rows in set (0.04 sec)

表数据:

1
2
3
4
5
6
7
8
9
10
mysql> select from tmp.tmp;
+----+-------------+--------+------------+
| id | PhoneNum    | status | statusDesc |
+----+-------------+--------+------------+
|  1 | 18600000000 |     10 | 北京       |
|  2 | 18600000001 |     21 | 上海       |
|  3 | 18600000002 |     10 |            |
|  4 | 18600000000 |     10 | NULL       |
+----+-------------+--------+------------+
rows in set (0.00 sec)

查询代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!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();
}

执行结果;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
E:\Workspaces\MyEclipse10\PerlProject>perl sql.pl
Please input a Phone Num ~
Eg:perl sql.pl 18600000000 ~
 
E:\Workspaces\MyEclipse10\PerlProject>perl sql.pl 18600000000
---------------New Line--------------
id              :       1
PhoneNum        :       18600000000
status          :       10
statusDesc      :       北京
---------------New Line--------------
id              :       4
PhoneNum        :       18600000000
status          :       10
statusDesc      :
 
E:\Workspaces\MyEclipse10\PerlProject>



本文转自 西索oO 51CTO博客,原文链接:http://blog.51cto.com/lansgg/1600971

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
数据库
●数据库 OrmLite (JDBC和Android的轻量级ORM java包) Sugar (用超级简单的方法处理Android数据库) GreenDAO (一种轻快地将对象映射到SQLite数据库的ORM解决方案,使用的App有:薄荷,京...
856 0
23704
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载