zengshaotao的专栏

#!/usr/bin/perl############################################################################## my $os = $^O; print $os; print "\n";#换行 $str = "he is out right now"; s/out/replace...

#!/usr/bin/perl #require "gettime.pl";print "************************call gettime.pl begin************************ \n"; my $rep = "SELECT HXJYLSH,ZJYLSH,BCXH,JYRQ,JYRQ FROM EASTBS.JYLS WHE...

#!/bin/perl use strict;use threads;use Cwd;use POSIX qw(strftime); ################################################################################# 函数名:  count# 函数描述:  数数# 输入:   ...

#!/usr/bin/perl################################################################################ Program : estimateScore.pl 计算评分卡的得分# Scrpition: 执行本数据字段批量检查需要以下几个步骤# Version :###############...

原文地址：http://blog.youkuaiyun.com/qin123qq/article/details/41083741 #!/bin/perl#perl "D:\separateFliesBySearch.pl" "D:/WebRoot" "C:/Users/Documents/" ".xml" "<beans xmlns=\"http:\/\/www\.springframewo..

#!/usr/bin/perl -w#用Spreadsheet::ParseExcel 显示一个工作薄的所有表的内容。 use strict; use warnings;  use Spreadsheet::ParseExcel; my $file = 'Demo.xls'; my $book = Spreadsheet::Pa...

#!/usr/bin/perl################################################################################ Program : ruleCheck.pl 根据规则组，检查规则组的通过率# Scrpition: 执行本数据字段批量检查需要以下几个步骤#  1.查询出所有的规则组，进行第一次循环#...

#!/usr/bin/perl################################################################################ zengst 2015-12-01# 功能描述：将DB2规则检测明细按照二级机构生成明细文件# 一个机构的下级数据需要通过机构的层级关系来递归获得####################...

Use Spreadsheet::WriteExcel;   #声明使用此模块              My $workbook = Spreadsheet::WriteExcel->new(‘perl.xls’);  #创建工作组文件              $worksheet = $workbook->add_worksheet();  #创建工作表             ...

preadsheet::WriteExcel这个模块，如果能很好的使用这个模块，从perl输出到excel的操作也就没什么问题了。利用它的几个函数，就可以方便地把数据写入到Excel相应的位置中，同时还可以设置单元格的格式，如字体大小，单元格大小，是否加粗，底色等等。这一篇为基础篇，主要包括以下内容：如何安装perl模块Spreadsheet::WriteExcel；如何用perl创建...

#!/usr/bin/perl################################################################################ Program : estimateScore.pl 计算评分卡的得分# Scrpition: 执行本数据字段批量检查需要以下几个步骤#  1.得到所有的评分卡以及评分卡下的所有的评分组。...

#!/usr/bin/perl -w#Description：load data#Auther：suzm#Date  :2014-11-10use DBI;use strict;push(@INC,'/home/tpms_dev/catpm/current/batch/lib/perl');require public_pg; my $pat...

#!/usr/bin/perl############################################################################## sub sum{ my $sum;foreach(@_){ $sum+=$_;#取得数组里的每一个数} $sum; } sub getAvg{if...

#!/usr/bin/perl############################################################################## sub sum{ my $sum;foreach(@_){ $sum+=$_;#取得数组里的每一个数} $sum; } sub getAvg{if...

1994年发布的DBI是Perl语言连接关系性数据库的标准。可以从dbi.perl.org获得DBI的源代码和文档。　　IBM在1995年发布了对于Perl的DB2驱动，这个驱动是符合DBI标准的，在Perl里这个驱动称为DBD::DB2 。可以从ibm.com/software/db2/perl获得DBD::DB2驱动的最新信息。　　注意：最近的DB2驱动需要至少Perl 5.005_03...

#!/usr/bin/perl $_ = "he is a great scienceist!";s/he/they/; print $_; print "\n"; my $string = "big exists!";$string =~ s/big/replacementbig/g;print "string: $string\n";  ...

#!/usr/bin/perl############################################################################## my $user = $ARGV[0];my $pwd = $ARGV[1];  print "传入的参数是：\n"; print "$user and $pwd \n";...

perl是一种编程语言，访问数据库的操作就是最基本的。 类似于java，perl也有自己访问数据库的一套“JDBC”标准，称之为DBI。每个数据厂商根据这套标准进行实现，IBM的就为DBD，mysql也有自己的实现。 所以，一般地，本地的perl语言环境要访问数据库，就要按照DBI和DBD模块。这里需要注意的是，DBI和DBD都是适应相关的perl版本的。 本人遇到的...

对于perl，不同的版本之间，存在一些功能上的差异。 高版本，split（“”，“”），不能split /-/,$params; 另外，对于print，不知道为啥，字符结尾不加 \n的换行符，整个print的内容无法呈现在doc窗口...

一、time函数time函数是返回距1970年1月1日0点到现在的秒数#!/usr/bin/perluse 5.12.0;use warnings;use strict;my $now1 = time;print "$now1";for(my $i=0;$i<60000000;$i++){}my $now2 = time;print "$...

#!/usr/bin/perl################################################################################ 规则检查主要包括以下步骤：#1.查询出所有的规则组，进行第一次循环#　 2.查询当前规则组下的所有规则（一般都是针对同一个字段），循环每一个规则，从中提取规则sql#   3.一组规则的...

#!/usr/bin/perluse strict;use warnings;  use Win32::OLE qw(in with);use Win32::OLE::Const 'Microsoft Excel';use Win32::OLE::NLS qw(:LOCALE :TIME);my $Excel = Win32::OLE->GetActiveO...