![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Perl
文章平均质量分 63
DDRTDTD
这个作者很懒,什么都没留下…
展开
-
perl连接sql 抓出中文乱码
先执行下这个:$dbh->do("set names utf8;") ;原创 2012-04-13 12:30:52 · 776 阅读 · 0 评论 -
用perl批量下butterfly的附件
还是存在服务器保险点,记录下,主要就是从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原创 2012-04-26 16:43:55 · 323 阅读 · 0 评论 -
perl 在butterfly的HDS中加用户
脚本是从excel中读取用户信息,然后再用LWP模块模拟登陆提交表单。额,windows平台执行的,windows平台默认编码gbk,butterfly 是utf-8的,所以需要转码。程序有个小bug,excel中的用户截止日期列中的数据请先将客户给的用户信息数据黏贴到文本文件中,然后再复制到程序目录下的excel文件中。userinfo.xlsx addpeopl原创 2012-05-07 13:31:06 · 654 阅读 · 0 评论 -
perl手动安装模块
ACTIVE PERL 如果能联网,ppm install XXX。 手动安装模块的话先看下安装文件readme 一般是如下 perl Makefile.PL $make $make test $make installwhere $make is either "nmake" or "dmake". 不能的话只有自己装了,如果已经通原创 2012-04-30 18:56:54 · 5173 阅读 · 1 评论 -
Perl GUI开发方案
初学perl的人总是想写一个酷酷的GUI程序或者你是一个经验丰富的SA, 老板不满意你的命令行脚本,希望你能写些快速上手的脚本. 不管为了什么,你现在可能已经开始在寻觅好用的perl GUI 工具. 是不是开始眼花缭乱了? 没错,因为perl的哲学就是'There is more than one way to do it'. 这么多的选择的确会让你产生恐惧感.下面我就列出perl常用的GUI t转载 2012-05-12 18:29:11 · 4393 阅读 · 0 评论 -
linux重启 HBP脚本
#!/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原创 2012-06-20 21:27:58 · 802 阅读 · 0 评论 -
LINUX 重启HPC脚本
#!/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原创 2012-06-20 21:28:36 · 627 阅读 · 0 评论 -
记录下我当时post butterfly的perl代码
#!/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 ; #设置立刻刷新缓冲区原创 2012-11-15 15:48:51 · 1360 阅读 · 0 评论 -
把perl脚本变成在windows下的可执行(exe)文件
问题:把perl脚本变成在windows下的可执行(exe)文件答案:用par模块具体方法:1, 安装par模块 如果你用的是activeperl: ppm> install PAR. 如果不是,下载par(从cpan)。perl Makefile.PL; make; make install2, 使用 pp -o yourFil转载 2012-05-13 17:43:49 · 1560 阅读 · 0 评论