目标：方便自己快速查询数据库表记录；
示例：
数据库主机：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
| |
+
------------+--------------+------+-----+---------+----------------+
4
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
|
+
----+-------------+--------+------------+
4
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
