自己写的一个数据导出工具，大家给点介意，，，

xiucai315

想弄好一点，但是资料查了一大堆，没找到自己想要的，就这么用原来的东西写了一个工具，不算太通用但是还行，就是先列出你本机能用的DBD，然后就是通用的链接数据库，选择sql执行方式，然后将查询结果输出到一个指定的文件里。程序有点傻，没进行很好的处理，也算个成果把，

1. #!/usr/bin/perl
   
2. #sql命令行操作工具;
   
3. use DBI;
   
4. use strict;
   
5. 
   
6. #打印版本头部
   
7. $~="my_version";
   
8. write;
   
9. 
   
10. format my_version=
    
11. ========================================
    
12. sql_tool cmdline version 1.0
    
13. ========================================
    
14. .
    
15. 
    
16. #选择你可以用的perl的DBD的数据库驱动
    
17. print"your system support these database\n";
    
18. my $choice=0;
    
19. my @driverlist=DBI->available_drivers;
    
20. foreach my $list (@driverlist) {
    
21.         print "\t$choice:$list\n";
    
22.         $choice++;
    
23. }
    
24. print"please select a perl support driver in your machine:";
    
25. my $num=<STDIN>;
    
26. chop $num;
    
27. my $driver_use=$driverlist[$num];
    
28. #输入链接的数据库/地址/端口
    
29. print "what database do you want to use?\n";
    
30. my $database=<STDIN>;
    
31. chop $database;
    
32. print "hostaddr:";
    
33. my $host=<STDIN>;
    
34. chop $host;
    
35. print "port_use:";
    
36. my  $port=<STDIN>;
    
37. chop $port;
    
38. 
    
39. my $dsn="DBI:".$driver_use.":database=".$database.";host=".$host.";port=".$port;
    
40. print "$dsn\n";
    
41. #输入用户名和密码
    
42. print "database user:";
    
43. my $user=<STDIN>;
    
44. chop $user;
    
45. #隐藏输入明文值
    
46. system "stty -echo";
    
47. print "password:";
    
48. my $password=<STDIN>;
    
49. chop $password;
    
50. system "stty echo";
    
51. #链接数据库
    
52. my $dbh=DBI->connect($dsn,$user,$password,{PrintError=>0,AutoCommit=>0}) or die "connect is error ,please check your host or password correctly,otherwise change your port!\nthe bad error is your give a uncorrect database\n";
    
53. 
    
54. #选择sql语句执行方式
    
55. print "sql from 1.cmdline 2.file(selecting):";
    
56. my $sel_input=<STDIN>;
    
57. chop $sel_input;
    
58. my $sql;
    
59. if($sel_input==1){
    
60.     print "\n sql=";
    
61.     $sql=<STDIN>;
    
62.     chop $sql;
    
63. }elsif($sel_input==2){
    
64.       print"\nsql_file name:";
    
65. my $sql_file=<STDIN>;
    
66. chop $sql_file;
    
67.          open(SQL_FILE,$sql_file);
    
68.          $sql=<SQL_FILE>;
    
69.          chop $sql;
    
70.          close (SQL_FILE);
    
71.         }else{
    
72. print "\n\tan error choice!\n";
    
73.                 }
    
74. 
    
75. #预编译sql
    
76. my $sth=$dbh->prepare($sql) or die $dbh->errstr;
    
77. #运行sql
    
78. $sth->execute or die"can't execute sql statement:$DBI::errstr\n";
    
79. print "give a output file name:";
    
80. my $output=<STDIN>;
    
81. chop $output;
    
82. open(OUT,">>$output") or die"create file $output failed!\n";
    
83. #接受结果
    
84. my @row;
    
85. my $num;
    
86. while(@row=$sth->fetchrow_array()){
    
87. 
    
88.           $num=@row;
    
89.            foreach my $line(@row){
    
90.                 print OUT ("$line\t\t");
    
91. 
    
92.         }
    
93.          print OUT ("\n");
    
94. 
    
95. }
    
96. close(OUT);
    
97. 
    
98. 
    
99. 
    
100. 
     
101. 
     
102. 
     
103. 
     
104. 
     
105. 
     
106. 
     
107. 
     
108. 
     
109. 
     
110. 
     
111. 
     
112. 
     

复制代码

ttcn_cu

>perlcritic 1.pl
Bareword file handle opened at line 67, column 4.  See pages 202,204 of PBP.  (Severity: 5)
Two-argument "open" used at line 67, column 4.  See page 207 of PBP.  (Severity: 5)
Bareword file handle opened at line 82, column 1.  See pages 202,204 of PBP.  (Severity: 5)
Two-argument "open" used at line 82, column 1.  See page 207 of PBP.  (Severity: 5)

zhlong8

上次见楼主还不用 strict 这次就这么牛了已经。不过写成交互环境不利于自动化啊，前70行都可以通过命令行参数配置 Getopt::Long

xiucai315

其实用不用strict，要看写多少东西，小片段，一般我不用那个西东，写东西不多，谢谢指点，关于DBI有的东西没有深看，关键是没有实战环境，偶尔碰到问题，懒了就用用，真希望能有一个锻炼的机会啊。

xiucai315

还有就是perl自动化那本书，全英文啃了一个多月，发现linux基础不是很好，觉得遗憾~~~，

xiucai315

回复 2# ttcn_cu


    又见到好东西了，谢谢指点，我回去好好反省一下。哈哈

兰花仙子

多写多练 很好。
数据库是Mysql的话，mysqldump已经很好，支持-where条件查询。
或者mysql命令自身也无所不能：

mysql -uroot -e 'select count(*) from login'
+----------+
| count(*) |
+----------+
|     9937 |
+----------+

2gua

Perl是胶水，需要掌握OS相关平台技术，才能把Perl的水平提高到一个更进一步的高度。