DDRTDTD的专栏

先执行下这个：$dbh->do("set names utf8;") ;

还是存在服务器保险点，记录下,主要就是从t_attachment表抓 已成为2进制的附件，数据库为mysql#!/usr/bin/perl -wuse strict;use warnings;use DBI;use File::Basename;use File::Spec;use Encode;use Encode::CN;my $database="MMMM

脚本是从excel中读取用户信息，然后再用LWP模块模拟登陆提交表单。额，windows平台执行的，windows平台默认编码gbk，butterfly 是utf-8的，所以需要转码。程序有个小bug，excel中的用户截止日期列中的数据请先将客户给的用户信息数据黏贴到文本文件中，然后再复制到程序目录下的excel文件中。userinfo.xlsx           addpeopl

ACTIVE PERL 如果能联网，ppm install XXX。 手动安装模块的话先看下安装文件readme 一般是如下   perl Makefile.PL   $make   $make test   $make installwhere $make is either "nmake" or "dmake". 不能的话只有自己装了，如果已经通

初学perl的人总是想写一个酷酷的GUI程序或者你是一个经验丰富的SA, 老板不满意你的命令行脚本,希望你能写些快速上手的脚本. 不管为了什么,你现在可能已经开始在寻觅好用的perl GUI 工具. 是不是开始眼花缭乱了? 没错,因为perl的哲学就是'There is more than one way to do it'. 这么多的选择的确会让你产生恐惧感.下面我就列出perl常用的GUI t

#!/usr/bin/perl -wuse strict;use warnings;use 5.010;my @ps0 = qx(ps -ef |grep java);my $ps1 = qx(ps -ef |grep java);my $hbp_pid ;my $hpc_pid;#print $ps1 ;print "HBP 和 HPC 服务启动情况:\n

#!/usr/bin/perl -wuse strict;use warnings;my @ps0 = qx(ps -ef |grep java);my $ps1 = qx(ps -ef |grep java);my $hbp_pid ;my $hpc_pid;#print $ps1 ;print "HBP 和 HPC 服务启动情况:\n"; forea

#!/usr/bin/perl -wuse strict;use diagnostics;use warnings;use Win32::OLE;use LWP::UserAgent;use FindBin;use HTTP::Cookies;use File::Spec;use Encode;use  5.010;$| =1 ; #设置立刻刷新缓冲区

问题：把perl脚本变成在windows下的可执行（exe）文件答案：用par模块具体方法：1， 安装par模块        如果你用的是activeperl:  ppm> install PAR.        如果不是，下载par(从cpan)。perl Makefile.PL; make; make install2,    使用 pp -o yourFil