-
perl模板的应用：随机排序：随机不放回取样
所属栏目：[大数据] 日期：2020-12-16 热度：162
有时候我们可能需要随机的将一些的数字或者其他的元素进行随机的抽取，或者随机的排序，这里他们的本质是一样的。或者随机的排序我们也可以看作是不放回的随机取样。 因为我们随机排序的每一个元素的顺序都是随机的。相当于每一个元素都是模拟的随机抽[详细]
-
perl模板：t检验：ttest的安装与使用
所属栏目：[大数据] 日期：2020-12-16 热度：100
这个模块写的时间是2003年，在window下怎么修改都感觉无法运行。所以转到linux下，linux开始报错，如下： 我们来看一下当我们安装这个模块的时候发现他还依赖于其他的两个模块，所以总的思想就是，缺什么补什么，我们把这两个模块下载下来，然后安装了以后，[详细]
-
Perl、PHP、Python、Java和Ruby的比较（来自知乎）
所属栏目：[大数据] 日期：2020-12-16 热度：140
◆ 语言的发展趋势一定是动静结合、刚柔并济 ◆ Perl凝练晦涩，Python优雅明晰，Ruby精巧灵动，PHP简明单纯 ◆ 或许优雅正是来自对细节和规范的重视 ◆ (RoR)与Ruby结合之后，便如一只猱身而上灵猫，立刻衬托出Java和.NET大象般的身影 ◆ Perl、Python、Ruby[详细]
-
Perl 之 诡异系统字符
所属栏目：[大数据] 日期：2020-12-16 热度：134
$- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $ 与上个格式匹配的字符串 $( 当前进程的组ID $) 当前进程的有[详细]
-
perl+python 对比
所属栏目：[大数据] 日期：2020-12-16 热度：193
参考? http://hyperpolyglot.org/scripting? ? ? perl ?(1987) python ?(1991) 基础 模块导入 use ? strict ; import ? os,re,sys 版本查看 ? $ perl?-v $ python -V 执行 脚本 ? $ perl foo.pl $ python foo.py 交互模式 ? $ perl -de 0 $ python 执行语句[详细]
-
Perl中File::Find模块的一个经典用法
所属栏目：[大数据] 日期：2020-12-16 热度：119
? ? ?find通常被用来查找特定路径下的特定文件，用来搜索文件名非常有用，是perl中使用非常广泛的文件操作函数。 ???? 先看个例子： use File::Find; find(PrintName,@curDir); sub PrintName{ my $path; if (/$reg/) { $path = $File::Find::name; $path =[详细]
-
安装perl报错
所属栏目：[大数据] 日期：2020-12-16 热度：56
（安装perl时若产生系统报错，Can't locate Time/HiRes.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at ./Run line 6.，[详细]
-
perl日志分析
所属栏目：[大数据] 日期：2020-12-16 热度：158
转载于：http://blog.chinaunix.net/uid-20488859-id-1941150.html #!/usr/bin/perl use strict; use Getopt::Std; use vars qw($opt_d $opt_s $opt_e $opt_k $opt_g %date_format @filename $keyword $regular); sub Usage { ??? print "Usage: parselog [-[详细]
-
Perl文件及目录操作
所属栏目：[大数据] 日期：2020-12-16 热度：93
大多数程序都不是孤立的,它们与它们的环境相互作用。很多的程序也需要通过文件操作实现数据的存贮和交换。?文件句柄(file?handle)是Perl程序中为程序和外部世界提供I/O连接的名称。建议全部使用大写字母以示与变量等的区别。特别地，也可以将STDIN/STDOUT/ST[详细]
-
gearman perl 测试
所属栏目：[大数据] 日期：2020-12-16 热度：141
perl gearman 测试 1）安装 wget -c http://launchpadlibrarian.net/51244438/gearmand-0.14.tar.gz ? tar zxvf gearmand-0.14.tar.gz ? cd gearmand-0.14 ? ./configure ? make make install ? cpan -i Gearman::Server cpan -i Gearman::Worker cpan -i Ge[详细]
-
用Perl统计一组数字中最大的N个
所属栏目：[大数据] 日期：2020-12-16 热度：114
简单的一个小脚本，用Perl来统计一堆输入数字中最大的N个，N可任意指定。这是本人学习Perl道路上练习用的小程序，各位大神不要鄙视 。 ? my?$k?=?$ARGV[1];? ? my?$input?=?$ARGV[0];? open ?INPUT,$input;? ? while(INPUT){? ????my?$line?=?$_;? ????my?@f[详细]
-
perl 常用处理函数
所属栏目：[大数据] 日期：2020-12-16 热度：65
?最近，由于项目需要，需要利用 Perl 把 MYSQL 数据库中的某些表的数据输出到 Excel 文件中方便打印，备份保存和数据移动。（由于之前未用过 Perl ，所以学了一下）。 ???? 需求描述：使用 Perl 从数据库中取出数据，把数据输出到 Excel 中。 ???? 问题解决[详细]
-
libmysqlclient.so.15(libmysqlclient_15)(64bit) is needed by
所属栏目：[大数据] 日期：2020-12-16 热度：146
报错： [root@kfc11g Server]# rpm -ivh perl-DBD-MySQL-3.0007-2.el5.x86_64.rpm warning: perl-DBD-MySQL-3.0007-2.el5.x86_64.rpm: Header V3 DSA signature: NOKEY,key ID 37017186 error: Failed dependencies: ??????? libmysqlclient.so.15()(64bit)[详细]
-
Perl批量执行Linux安装程序和脚本
所属栏目：[大数据] 日期：2020-12-16 热度：194
转载http://www.oschina.net/code/snippet_222150_7901 ? #!/usr/bin/perl#use Cwd;sub ExecuteAll(){local($dir) = @_;opendir(DIR,"$dir"|| die "can't open $dir");local @files =readdir(DIR);closedir(DIR);for $file (@files){next if($file=~m/.$/ |[详细]
-
Perl大杂烩
所属栏目：[大数据] 日期：2020-12-16 热度：81
记录Perl使用过程中遇到的问题与答案 本文所转载内容均已注明出处 --------------------------------------------------------------------------------------------------------------------------- http://developer.51cto.com/art/201007/212493.htm chop[详细]
-
RRDs Perl Modules: *** NOT FOUND **
所属栏目：[大数据] 日期：2020-12-16 热度：163
? RRDs Perl Modules: *** NOT FOUND ** CactiEZ 10.1 X64里面安装nagiosql 装pnp4nagios的时候碰到这个问题： ? 解决办法：yum install rrdtool-perl.x86_64 然后./configure --with-rrdtool=/usr/local/rrdtool/bin/rrdtool就可以了 ? ? *** Configuration[详细]
-
开发运行一个简单的perl程序
所属栏目：[大数据] 日期：2020-12-16 热度：59
新建源文件 //文件名以perl结尾 如t.pl 操作： 新建文件： vi test.pl 写入如下代码： #!usr/bin/perl print "my first perl"; 按esc键，“：” -wq-按回车键保存退出。 执行perl test.pl,即可运行你所编写的test.pl程序 输出结果 也可以通过 perl test.pl r[详细]
-
Perl调试
所属栏目：[大数据] 日期：2020-12-16 热度：200
http://blog.chinaunix.net/uid-9460004-id-3040437.html 版本ActivePerl（5.12.1）之后没装安装Tk了，换成Tkx了。[详细]
-
Perl调试
所属栏目：[大数据] 日期：2020-12-16 热度：117
http://blog.chinaunix.net/uid-9460004-id-3040437.html 版本ActivePerl（5.12.1）之后没装安装Tk了，换成Tkx了。[详细]
-
script perl / pcre / Perl Compatible Regular Expressions
所属栏目：[大数据] 日期：2020-12-16 热度：78
正则表达式库 PCRE 8.32? http://www.pcre.org ftp://ftp.csx.cam.ac.uk/pub/software/programming/pcre/ ftp://ftp.csx.cam.ac.uk/pub/software/programming/pcre/ pcre-8.32.zip ftp://ftp.csx.cam.ac.uk/pub/software/programming/pcre/ pcre-8.32.tar.gz[详细]
-
perl dns record check
所属栏目：[大数据] 日期：2020-12-16 热度：200
说明： 主要用于获取及检查DNS server 信息，确保其安全可靠运行。 根据使用需求可以调整sub 函数来取得想要的信息。 ? #!/usr/bin/perl? use?strict;? ? use?Net::DNS;? ? #my?$domain=$ARGV[0];? #my?$dns_server=$ARGV[1];? my?$domain= "google.com" ;?[详细]
-
perl ssh 自动登陆多台服务器并执行关机动作
所属栏目：[大数据] 日期：2020-12-16 热度：165
script说明 我们单位的物业经常发布断电维护通知，每次断电都需要将所有服务器关掉。这个脚本可以让你做这件事变的简单 #!/usr/bin/perl?-w? use?strict;? use?Net::SSH::Expect;? ? open ?(AF,? "host_list" )? or ?die? "don't?open?host_list:?$!n" ;? m[详细]
-
perl 扫描域名，ip地址，mac地址， 服务器开放端口信息
所属栏目：[大数据] 日期：2020-12-16 热度：72
script 说明： ? 该script可以扫描指定服务器的如下信息，并发邮件通知。 用来自动创建服务器管理文档也很有效。包括：域名，ip地址，mac地址， 服务器开放的端口。 ? #!/usr/bin/perl?-w? use?strict;? use?Mail::Sender;? my?@servers=qw(10.13.55.1?10.13[详细]
-
perl 系统文件监控脚本
所属栏目：[大数据] 日期：2020-12-16 热度：64
script 说明： 该脚本可以对指定的系统重要文件进行监控，当文件被查看或修改后，脚本会查看最近登陆系统的用户和IP,并发邮件通知。 #!/usr/bin/perl? use?strict;? use?Mail::Sender;? use?Digest::SHA;? my?@files=( '/etc/passwd' ,? '/etc/shadow' ,? '/[详细]
-
perl 信号控制
所属栏目：[大数据] 日期：2020-12-16 热度：198
? 转载1:?http://www.php-oa.com/2009/06/09/perl_signal.html 转载2: http://blog.163.com/zhuyu_blog/blog/static/26735153200743072258824/ 参考：http://search.cpan.org/~dlux/Parallel-ForkManager-0.7.9/lib/Parallel/ForkManager.pm ===============[详细]
