-
编辑 删除
大数问题
大数问题[@more@]先看一下这一小段代码:$n = 1239482349287349;print $n, "n"; 输出结果为: 1.23948234928735e+15这明显不是我们想要的, 当数在一个 double 的范围也即 8 字节之内,可以这样输出: printf "%.f", $n这样结果就正确了. 但是, 当数很大时, 例如 $n = 123456789012345678901234 时, 用上面的方法输出结果并不是我们想要的, 这时彻底的解决方法是使用模块 bignum : use bignum;$n = 123456789012345678901234;print $n, "n";
-
编辑 删除
查找已安装所有perl模块
find `perl -e 'print "@INC"'` -name '*.pm' -print[@more@]
-
编辑 删除
安装perl模块的一个好地方(ActivatePerl )
比较了一下还是 http://www.bribes.org/perl/ppmdir.html 这个网站好，如果没有代理的限制，直接从网络上安全PPM格式的各种模块非常方便，比从ActivatePerl的网站上下载容易多了。PPM的格式，因为不需要其他编译的支持，比如从CPAN下载的Win32::API就需要VC中的cl.exe.[@more@]
-
编辑 删除
检查perl所安装的模块
find `perl -e 'print "@INC"'` -name "*.pm"[@more@]
-
编辑 删除
安装perl package
安装perl package[@more@]Perl模块多平台安装方法 出 处：中国Perl协会 FPC(Foundation of Perlchina) 作 者：dlee linuxforum.net 整 理: qiang 原 文：linuxforum 发 表：2000-06-29 目录[隐藏]1 几个主要的 CPAN 站点有： 2 安装方法 2.1 Linux/Unix下的安装方法： 2.1.1 手工安装的步骤： 2.1.2 使用 CPAN 模块自动安装： 2.2 Win32下的安装方法 2.2.1 最通常的安装方法 2.2.2 安装 activeperl 不包括的模块 因为这篇文章是 2000 年完成，我对这篇文章做了适当的更新来适用于现在。 Perl 到了第五版增加了模块的概念，用来提供面向
-
编辑 删除
多行的锚定
多行的锚定[@more@]在dn:aaa 与 cn:bbb中找uid:123dn:aaauid:123cn:zhdn:bbbuid:456cn:gzwhile(<DATA>){ if( /dn:aaa/.../cn:bbb/ and /uid:123/ ){ print "okn"; }}__END__dn:aaadn:ccccn:122uid:123dn:bbbcn:zhdb:bbbuid:456cn:gzcn:bbb
-
编辑 删除
shell、perl 生成csv文件
shell、perl 生成csv文件[@more@]１、以","为分隔符号，然后保存为".csv"文件２、使用"t"或"011"符号,然后保存为",.xls"文件如：echo -e "atb" >> 11.xls (open FA,"22.xls");print FA "atbtccnaat11t22";close(FA); ３、生成xls,csv文件后，导到window下直接打开就行
-
编辑 删除
Compare array
前段时间写的upgrade，现在碰到了问题，在处理key.pl的环节上，大数据量时候效率很低，以前设计的时候没有考虑到在这个环节上能有大数据量，所以写的算法是很简单的顺序遍历，赋值也是直接赋值．结果２２００条record就要花一小时才跑完，my god. 接到user的反映后，知道这个问题得重写．趁着五一假期研究一番，现采用二叉树算法，采用引用替代直接赋值，将循环用子函数独立出来，尽量减少遍历的次数．优化后２２００同样的数据，只要１０秒就ＯＫ了． 检查出一个bug：split在拆分字符串的时候，对结尾是空的段直接忽略掉；采
-
编辑 删除
install par
前天公司一同事问，能不能写过exe文件，处理win下的东西，一直来都是在UNIX下写程序，还真写过exe。于是决定将perl程序编译为exe。折腾了2天，不停的google，终于安装完par。下面就简单下安装步骤：[@more@]Install activeperl 5.8.8.822ftp://ftp.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.8.822-MSWin32-x86-280952.msi========install par=====1.) ppm install par Or ppm install http://www.bribes.org/perl/ppm/PAR.ppd2.) ppm install http://www.bribes.org/perl/ppm/File-Temp.ppd3.) ppm install http://www.b
-
编辑 删除
使用perl读取生成excel表格
在Linux或者Unix上操作（生成）Excel，怎么说都是比较困难的困难的事情。CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel这两个模块。下面我们就来看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法：[@more@]1、首先，我们要在服务器上安装相应的模块安装 Excel 模块的 PPM 命令 ppm> install OLE::Storage_Lite ppm> install Spreadsheet::ParseExcel ppm> install Spreadsheet::WriteExcel ppm> install OLE::Storage_Liteppm> install Spreadsheet::ParseExcelppm> install Spr
-
编辑 删除
perl连接oralce取数据并生成excle文件
使用perl Spreadsheet::WriteExcel作报表，生成excle表．例子如下：[@more@]#!/usr/bin/perl -w## System : Macau DW# Program ID : dw_***_srpt.pl# Description : Generate **** report## Create By : Bill ***# Creation Date : 04-SEP-2008# #use strict;use DBI;use Spreadsheet::WriteExcel; #Input Date Parametermy $input_date=$ARGV[0]; #Result File Name Prefixmy $result_file_prefix = "hurrytracking_frpt_"; my $dbh = DBI->connect("dbi:Oracle:", "", "&qu
