潘高的小站

最近在做新项目，好久没更新博客了。正巧今天朋友问了我一个bug怎么解决，今天就抽空把这个问题记录一下。

前言更多内容，请访问我的 个人博客。use FindBin qw($Bin);#遍历文件夹my $fileReportDir = $Bin; #出报告所在的文件夹地址if(-e $fileReportDir){opendir DIR, $fileReportDir || die "Error in opening dir $fileReportDir\n";while( my $...

前言更多内容，请访问我的 个人博客。use FindBin qw($Bin);use Win32::OLE qw(in with);use Win32::OLE::Const 'Microsoft Excel';#判断excel是否已经打开my $isOpen = 1; #已经打开if(rename $Bin."/".$file,$Bin."/re-".$file){rena...

前言更多内容，请访问我的 个人博客。GETuse LWP::UserAgent;my $browser = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6');my $TARGET_U...

前言更多内容，请访问我的 个人博客。use File::Path qw(remove_tree);remove_tree($zipFiles."/tem/");

前言更多内容，请访问我的 个人博客。前言用perl处理excel有两种流行的模块：一种是 win32:OLE 模块，优点是功能强大，在excel上能做的事情用这个模块都能做，缺点是无法跨平台，必须在win系统上使用且必须安装office软件；另一种是 Spreadsheet 模块，优点是跨平台，不依赖系统和软件，缺点是功能不是很多，但基本功能都能实现。如果在win平台处理excel，建议...