-
用perl生成带格式的excel（跨平台）
所属栏目：[大数据] 日期：2020-12-16 热度：100
本文介绍如何用perl生成excel,而且excel的样式可以自己事先设计好，不需要在windows下生成。 1.创建一个模板excel 新建一个test.xls文件，打开 自己设计样式如下： ? ? 2.把test.xls另存为xml表格 test.xml ? ? 3.用文本编辑器打开test.xml,我要介绍要用代码[详细]
-
perl实现对各种命令的守护进程,能够自动重启进程
所属栏目：[大数据] 日期：2020-12-16 热度：185
运维需要对一些关键的服务进程进行守护，例如tomcat进程,mysql之类，这种进程没有自己的守护进程，而我们又不可能去改它们的源代码。 为此我用perl写了一个守护进程，根据传入的命令，启动要守护的进程，若是进程挂了，则重新启动进程。 即使子进程被杀死了[详细]
-
读-福瑞哈哥-的POE学习笔记
所属栏目：[大数据] 日期：2020-12-16 热度：140
http://bbs.chinaunix.net/thread-908855-1-1.html wheel部分有个小例子，代码不贴了。 其中有几行： ? ? ? ? # 告诉ReadLine监控终端 ? ? ? ? ? $console-get( 'input your message,bye to quit: '); ? ? ? ? ? $heap-{console} = $console; ? 原以为$conso[详细]
-
用Perl实现XML DOM的insertAfter函数
所属栏目：[大数据] 日期：2020-12-16 热度：123
《JavaScriptDOM编程艺术》一书中曾经用JS实现过MSXML不支持的insertAfter函数，刚才我用Perl在Windows平台实现这个函数： use Win32:: OLE qw(in with) ; use strict ; use constant MSXMLDOM = "MSXML2.DOMDOCUMENT.4.0" ; sub insertAfter { ???? my ( $n[详细]
-
用Perl读取一个目录下的所有文件名
所属栏目：[大数据] 日期：2020-12-16 热度：146
? http://blog.waterlin.org/articles/using-perl-to-read-filename-under-a-directory.html[详细]
-
Perl、PHP、ASP、JSP技术比较
所属栏目：[大数据] 日期：2020-12-16 热度：119
转自：http://www.williamlong.info/archives/460.html文将对目前最常用的四种动态网页语言Perl（Practical Extraction and Report Language）、PHP（Hypertext Preprocessor）、ASP（Active Server Pages）、JSP（JavaServer Pages）进行一些技术性的比较。[详细]
-
计算机免费电子书列表
所属栏目：[大数据] 日期：2020-12-16 热度：189
? ? 来源：http://coolshell.cn/articles/2775.html ? ? 在StackOverflow上，有人要打算收集个免费电子书的列表，结果很快就有人分享了一个列表。很不错，我就转过来了。原帖的地址在http://stackoverflow.com/questions/194812/list-of-freely-available-pr[详细]
-
计算机免费电子书列表
所属栏目：[大数据] 日期：2020-12-16 热度：126
? ? 来源：http://coolshell.cn/articles/2775.html ? ? 在StackOverflow上，有人要打算收集个免费电子书的列表，结果很快就有人分享了一个列表。很不错，我就转过来了。原帖的地址在http://stackoverflow.com/questions/194812/list-of-freely-available-pr[详细]
-
Use strict and warning
所属栏目：[大数据] 日期：2020-12-16 热度：79
#!/usr/bin/perl Today I read a perl script,I saw the " use strict " and " use warnings " in the head lines of content. I learned about it's function and using method. ?I would write it here. Put this line at the top of your script (after t[详细]
-
升级系统自带的perl
所属栏目：[大数据] 日期：2020-12-16 热度：53
CentOS 系统自带的Perl版本是5.8.8,已经很老了，哥今天折腾一下，把它升级到最新版本。 系统初始状态下的Perl版本 #?perl?-v? ? This?is?perl,?v5.8.8?built?for?x86_64-linux-thread-multi? ? Copyright?1987-2006,?Larry?Wall? ? Perl?may?be?copied?only?[详细]
-
perl socket传hash--JSON
所属栏目：[大数据] 日期：2020-12-16 热度：103
? EG： send: use JSON; my $json = JSON-new-ascii; #还有utf8与latin1 my $str = $json-encode($res); print $socket $str ------------------ 接收端直接取[详细]
-
perl筛选wvs批量扫描结果
所属栏目：[大数据] 日期：2020-12-16 热度：129
之前用wvs_console进行批量扫描生成了大量html报告，下面写了一个perl脚本来帅选出有高危漏洞的站点。 ?#!/usr/bin/perl?-w? ? use?strict;? use?warnings;? use?Cwd;? use?File::Copy;? ? my?$dir?=?getcwd();? my?$dstdir?=? "/lab/report/xss/" ;? my?$ c[详细]
-
perl中简单printf操作
所属栏目：[大数据] 日期：2020-12-16 热度：192
在perl程序中，读入下面一行c代码： printf("%d",number); 将其保存到到变量$line中，然后将其输出到文件句柄$out中，下面两种做法会有什么差异呢？ 1）printf $out $line; 2）printf $out ("%s",$line); 如果第一种做法不是你想要的结果，那么最好在perl程[详细]
-
perl 与sqlite 摘自扶凯
所属栏目：[大数据] 日期：2020-12-16 热度：190
? [perl]在perl中连接和使用sqlite做数据存储 Dec 21st,2009 Leave a comment?|? Trackback ? 转载本站文章请注明，转载自： 扶凯 [http://www.php-oa.com] 本文链接:?http://www.php-oa.com/2009/12/21/perl-sqlite.html Perl使用sqlite和使用mysql一样容易[详细]
-
缺陷管理软件的易用性。
所属栏目：[大数据] 日期：2020-12-16 热度：166
别人的问题，想了解各个bug平台（http://bbs.51testing.com/viewthread.php?tid=474265），就回复了下面的内容。 你说的易用性对测试还是开发？易用性看使用习惯，大部分缺陷管理软件的操作都类似，并没有复杂到需要专门说易用性的程度。只有Clearquest感觉[详细]
-
Learning Perl 7
所属栏目：[大数据] 日期：2020-12-16 热度：160
?1. 数组的长度 $#arrayname返回数组最后一个长度的下标。( 默认数组是从0下标开始) 2. 数组的切片Array slicing 从一个数组给另一个数组的元素赋值时，得出的数组称为数组片。如果右边的数组大于左边的数组时，未使用的值将放弃。如果小于，多出的左边的值[详细]
-
perl 多线程共享数据
所属栏目：[大数据] 日期：2020-12-16 热度：194
perl 要修改传入参数，就像c一样，要传入引用 ?#!/usr/bin/perl -w ?my $var = 1212; ?sub test ?{ ? ? ?my ($ref) = @_; ? ? ?$$ref = 12; ?} ?test($var); ?print($var); — OUTPUT ——— 12 但是在thread里面，如果直接传入引用，则无效 ?#!/usr/bin/pe[详细]
-
限制perl多进程数量
所属栏目：[大数据] 日期：2020-12-16 热度：175
#!/usr/bin/perluse strict;use warnings;use POSIX ":sys_wait_h";my $maxproc = 4;my $zombies = 0;$SIG{CHLD} = sub { $zombies++ };for my $item (1 .. 10){ my $pid = fork(); if (!defined $pid) { print "Error!n"; exit 1; } if ($pid == 0) { prin[详细]
-
Perl多进程实战
所属栏目：[大数据] 日期：2020-12-16 热度：107
转自http://bbs.scmroad.com/viewthread.php?tid=3917 perl作为一种解释性的语言，很受广大系统管理员的欢迎，好处么就不多说了，坏处也有不少，例如对线程的支持，就一直不咋地，所以大多数情况下，我们都需要多个进程，来帮助我们完成 工作 ，闲话少说，上[详细]
-
perl 学习日记1（文件操作）
所属栏目：[大数据] 日期：2020-12-16 热度：132
原文：http://blog.chinaunix.net/space.php?uid=9398085do=blogid=1677708 打开文件 if (open(TXT,"C:/Documents and Settings/Administrator/ 桌面 /integrate.txt")) { print "successed!"; } else { print "failed."; exit 1; } ? 关闭文件句柄 close(TX[详细]
-
perl学习日记2（哈希结构）
所属栏目：[大数据] 日期：2020-12-16 热度：59
原文：http://blog.chinaunix.net/space.php?uid=9398085do=blogid=1677464 哈希结构 %movies = ('The Shining'= 'Kubrick','Ten Comandments' ='DeMille','Goonies' ='Spielberg'); print $movies{'The Shining'}; 其中‘ The Shining ’是关键字， 'Kubric[详细]
-
perl学习日记3（函数）
所属栏目：[大数据] 日期：2020-12-16 热度：174
原文：http://blog.chinaunix.net/space.php?uid=9398085do=blogid=1677705 函数的格式 sub shift_to_uppercase{ @words=qw(cia fbi un nato unicef); foreach(@words){ $_=uc($_); # 换成大写 } return(@words); } @acronyms=shift_to_uppercase(); print "[详细]
-
perl内置变量表zz
所属栏目：[大数据] 日期：2020-12-16 热度：132
原文：http://blog.chinaunix.net/space.php?uid=9398085do=blogid=1675735 $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通[详细]
-
ARM cortex M0 verification script --- Perl
所属栏目：[大数据] 日期：2020-12-16 热度：56
#!/usr/bin/perl ################################################################################# # # The confidential and proprietary information contained in this file may # only be used by a person authorised under and to the extent per[详细]
-
[perl]Wide character in print
所属栏目：[大数据] 日期：2020-12-16 热度：139
binmode DATA,":utf8"; ---------------------------------------- Unicode-processing issues in?Perl and how to?cope with it Perl 5.8+ has comprehensive support for Unicode and a?wide range of?different text encodings.? But still many people e[详细]
