perl脚本和 perl dbi接口示例
来源:互联网 发布:淘宝店主写错发货地址 编辑:程序博客网 时间:2024/05/16 08:34
第一个perl脚本是同事帮忙写的。这个功能用JAVA实现后,中途不抛异常退出;用perl后,正常。
同事帮忙写,我自己修改调试通过,竟然对perl有了一定的了解。写下来,备忘,说不定今天是个新
的开始。
#!/usr/bin/perl
use DBI;
#连接数据库,就是这么方便
$dbh = DBI->connect("DBI:mysql:newWap:172.16.58.36", "root","");
#perl io
open (F, "data.txt");
open (OUT, ">>result.txt");
#这里定义的是hashtable,与我们平常用的数组不一样,在这里比数组方便了很多
local (%all_count);
local (%db_count);
local (%qqs);
$sql = $dbh->prepare("select user_id from t_core_user");
$sql->execute();
#@表示数组
while (@qqid = $sql->fetchrow_array) {
$qqs{$qqid[0]} = "0";
}
print ("DB operation completed./n");
while ($str =
chomp($str);
#print ($str);
$ch = substr($str, 0, 1);
if ($ch eq "F") {
next;
}
@arr = split(//t/, $str);
$qq = $arr[0];
$time = $arr[2];
if (length($time) < 6) {
next;
}
#print ("qq : $qq, time : $time/n");
if (substr($arr[2], 0, 6) eq "200505") {
$all_count{"5"} ++;
if (exists($qqs{$qq})) {
$db_count{"5"} ++;
}
}
if (substr($arr[2], 0, 6) eq "200506") {
$all_count{"6"} ++;
if (exists($qqs{$qq})) {
$db_count{"6"} ++;
}
}
if (substr($arr[2], 0, 6) eq "200507") {
$all_count{"7"} ++;
if (exists($qqs{$qq})) {
$db_count{"7"} ++;
}
}
}
print OUT ("6 : ".$all_count{"5"}." , ".$db_count{"5"}."/n");
print OUT ("6 : ".$all_count{"6"}." , ".$db_count{"6"}."/n");
print OUT ("6 : ".$all_count{"7"}." , ".$db_count{"7"}."/n");
close(F);
close(OUT);
- perl脚本和 perl dbi接口示例
- perl脚本和 perl dbi接口示例
- perl脚本和 perl dbi接口示例
- perl dbi unload utf8脚本
- Perl DBI
- perl DBI
- Perl安装和使用DBI
- perl 安装DBI和DBD
- Perl DBI 入门和Perl DBI连接MySQL数据库
- Perl脚本示例程序
- perl,dbi连接postgre和mysql
- Perl类、CGI和DBI编程
- Centos 安装perl DBI和mysql DBD
- Perl DBI实例
- Perl DBI 入门
- 运行perl DBI
- Perl DBI 基础
- Perl DBI mssql
- Tomcat的RemoteAddrValve的使用
- 动态绑定报表数据
- 群里面的讨论:关于rowset,mysql,PrepareStatement,Poeaa等
- JS实现科学计算器
- QQ群内的jbpm3讨论
- perl脚本和 perl dbi接口示例
- 定时执行任务的三种方法
- Tomcat访问日志使用
- 中国城市联动菜单
- J2EE集群体会
- 使用并监控proxool连接池
- AspectJ使用经验
- 安装配置BouncyCastle JCE
- 数据库中的move操作