-
我最喜欢的10条编程语录
所属栏目：[大数据] 日期：2020-12-16 热度：61
（提示：正如广为流传的经典段子，有些经典语录有多个版本，作者署名都不一样。从下文就可以看出来。英文原文我保留了 Senthil Kumar 的。中文版本后面的作者署名是我当时所看到的署名。） 09. If debugging is the process of removing software bugs,then[详细]
-
perl生成excel文档的格式设置
所属栏目：[大数据] 日期：2020-12-16 热度：175
#生成excel文档my $workbook = Spreadsheet::WriteExcel-new('/home/loganalysis/data/hudong/docSoSearch/statKeywordsTop100.xls');#各种数据的展现格式my $normalFormat = $workbook-add_format(border = 1,align = "center",size=12);my $titleFormat =[详细]
-
perl学习之printf
所属栏目：[大数据] 日期：2020-12-16 热度：91
perl学习记录 #!?/usr/bin/env?perl?-w? #use?strict;? #Date:2005-05-31? #ex5_3? #右对齐输出? chomp(my?$ n = STDIN );? for(1?..$n){? ????print?$_%10;? }? print?"n";???? my$ p = "%" .($n+1)."sn";? while?( STDIN ){? ????printf?$p,$_;? }? ? 运[详细]
-
perl 面向对象编程 ---学生信息录入与显示
所属栏目：[大数据] 日期：2020-12-16 热度：188
?[详细]
-
You need perl module Net::SNMP to run check_openmanage in SN
所属栏目：[大数据] 日期：2020-12-16 热度：101
安装nagios与openmanage中通过check_openmanage与SNMP协议遇到问题 nagios显示为 You need perl module Net::SNMP to run check_openmanage in SNMP mode 解决方法： For RHEL6 and CentOS 6 the best way is to use EPEL: yum --nogpgcheck install http://[详细]
-
Perl中的向后引用
所属栏目：[大数据] 日期：2020-12-16 热度：129
n表示向后引用 use strict;use warnings;my $str = "title hello world /title";if($str =~ /(?#start of a tag)([^]+)(.*?)(?#end od a tag)/(1)/){print "$1n";print "$2n";print "$3n";}[详细]
-
Source Insight中代码块注释(利用/**/)及取消注释实现方法
所属栏目：[大数据] 日期：2020-12-16 热度：173
用了许久source Insight写C/C++代码，发现其中没有块注释功能很不方便，于是今天研究了下怎样让sourceInsight实现块注释。 网上介绍了很多方法实现块注释，但是都是对代码利用“//”逐行注释，没有用“/* */”实现的，我个人比较倾向于用/* */注释代码块，所[详细]
-
perl exec管道和子进程
所属栏目：[大数据] 日期：2020-12-16 热度：194
?Perl中的 -| 描述符的问题。 ?程序大概是这样的： unless (open FH,"-|") { ? exec "foo bar"; ? ? ? ?# 用exec执行另一个程序 ? exit; } while (FH) { ? ... } close FH; $ret = $? 8; if ($ret == 1) { ? ... } 那么这里的 open FH,“-|” 是什么意思？$?[详细]
-
举例说明PERL特殊变量
所属栏目：[大数据] 日期：2020-12-16 热度：102
先来一个例子吧 #!/usr/bin/perl use warnings; @array = qw(a b c d); foreach (@array) { print $_," "; } 例子的作用就是定义一个数组并把其中的元素打印出来，这里需要注意的是foreach循环部分，foreach循环的标准格式应该是： foreach $element (@array[详细]
-
Perl列出谁在系统上
所属栏目：[大数据] 日期：2020-12-16 热度：78
???? 文件：whox.pl； 功能：列出谁在系统上,如有同一用户多次登录分组显示； 说明：列用户登录次数,使用的虚拟终端号及对应的IP； 优点：相对于”who -x”显示出的信息更加直观。??????????????????????????????????????????????????????????? ????#!/usr/b[详细]
-
perl学习之哈希
所属栏目：[大数据] 日期：2020-12-16 热度：186
perl 学习哈希简单篇 #!/usr/bin/perl?-w? use?strict;? my?% h =(? "wd"= "1",? "dm"= "2"? );? while( STDIN ){? ?chomp;? ?print?"$h{$_}n";? }? ? 结果? wd? 1? dm? 2? ? #!/usr/bin/perl?-w? use?strict;? my?%h;? while( STDIN ){? ?chomp;? ?$h{$_}+[详细]
-
perl 完成 linux md5sum
所属栏目：[大数据] 日期：2020-12-16 热度：116
#!/usr/bin/perl -w#author:jevons zeng use strict; use Digest::MD5 qw(md5 md5_hex md5_base64); my $md5file="acquisition"; open FH,$md5file or die("can't not open acquisitionn"); print md5_hex(FH); close FH;[详细]
-
perl 读取阻塞命令行的结果
所属栏目：[大数据] 日期：2020-12-16 热度：176
open(my $fh,$cmd."|") or return "";my $sel = new IO::Select($fh);for(my $i=0;$i$timeout;$i++){if (my @ready = $sel-can_read(1)) {my $msg = $fh;chomp $msg;$allline.=$msg."n";}} print $allline,"--finishn"; ###无论阻塞不阻塞这里都会得到结果[详细]
-
批量修改多个文件内容
所属栏目：[大数据] 日期：2020-12-16 热度：126
这两天在构建一个应用的使用用到了maven,由于project很大,足足有700多个pom.xml文件,更郁闷的是在很多pom.xml文件里都单独指定了资源库的url,我需要把这些资源库的url统一指定到nexus本地中央库. ? 手工一个个改文件配置有点不太实际,所以google了一下,找到[详细]
-
perl操作excel(更新+编辑excel)(更新+VLOOKUP公式使用+#VALUE!错
所属栏目：[大数据] 日期：2020-12-16 热度：186
1、perl使用 use Spreadsheet::ParseExcel;和 use Spreadsheet::WriteExcel; 不能同时读写同一个excel文件。 ????? 用 Win32::OLE ---- 专用于Windows 貌似可以，不过linux下不行。 2、perl处 理excel用到的公式和格式： ?????? http://search.cpan.org/~jmc[详细]
-
perl支持mysql
所属栏目：[大数据] 日期：2020-12-16 热度：89
默认情况，安装好perl以后不支持mysql，运行perl脚本时提示： Available drivers: CSV,DBM,ExampleP,File,Gofer,ODBC,Oracle,Proxy,SQLite,Sponge. 解决办法： --如果是在windows中安装activer perl则 ppm install "DBD::mysql" --下载源码安装 http://searc[详细]
-
perl支持mysql
所属栏目：[大数据] 日期：2020-12-16 热度：134
默认情况，安装好perl以后不支持mysql，运行perl脚本时提示： Available drivers: CSV,DBM,ExampleP,File,Gofer,ODBC,Oracle,Proxy,SQLite,Sponge. 解决办法： --如果是在windows中安装activer perl则 ppm install "DBD::mysql" --下载源码安装 http://searc[详细]
-
为UltraEdit配置perl编译环境
所属栏目：[大数据] 日期：2020-12-16 热度：137
经常处理脚本的人对perl语言一定非常熟悉。perl以其强大的文本处理能力以及良好的平台移植性在系统程序员和web设计师中非常流行。由于实验室常常会遇到文本处理方面的工作，完全用C语言实现往往需要花费一定的时间，而用perl的话，也许短短数行代码就能很好[详细]
-
利用perl计算列表中高于平均值的数字
所属栏目：[大数据] 日期：2020-12-16 热度：198
?写一个名为above_average的子程序，当给定一个包含多个数字的列表时，返回其中大于这些平均值的数。 sub?sum{? ????????my?$sum;???????????????????????????????? #定义私有变量 ? ????????foreach(@_){? ????????????????$sum?+=?$_;? ????????}? $sum;??[详细]
-
查看已安装的perl模块
所属栏目：[大数据] 日期：2020-12-16 热度：135
find `perl -e 'print "@INC" '` -name "*.pm" perlmodules.txt 然后下载perlmodules.txt来看[详细]
-
perl -i 在命令行中修改文件内容
所属栏目：[大数据] 日期：2020-12-16 热度：119
简介 ? ? ? ? ? ? Perl 用作命令行操作的快速而又难看的脚本是很有用的；通过命令行，Perl仅用一行就可以实现大多数其它语言需要数页代码才能完成的任务，这个小东东的功能可是非常强大的。 ? ? ? ? ? ? 参数： ? ? ? ? ? ? -w? ? ? 打开警告。 ? ? ? ? ? ?[详细]
-
使用perl Spreadsheet::ParseExcel 来解析xml
所属栏目：[大数据] 日期：2020-12-16 热度：54
? ?在Windows上安装ActivePerl所需要的读取Excel文件一般用Win32::OLE，但对于跨平台来说，还是选择另外的 Spreadsheet::ParseExcel及Spreadsheet::WriteExcel最好。前者是读Excel文件用的,后者用于写Excel文件。 Spreadsheet::ParseExcel只能读95-2003格式[详细]
-
在 Perl 中使用 Getopt::Long 模块来接收用户命令行参数
所属栏目：[大数据] 日期：2020-12-16 热度：128
转载自： 扶凯 [http://www.php-oa.com] 本文链接:?http://www.php-oa.com/2009/04/04/perl_getopt-long.html ?我们在linux常常用到一个程序需要加入参数,现在了解一下 perl 中的有关控制参数的模块 Getopt::Long,比直接使用 @ARGV 的数组强大多了.我想大家[详细]
-
perl自学小练习
所属栏目：[大数据] 日期：2020-12-16 热度：183
[root@stationx perl]# cat rsort.pl???? #!/usr/bin/perl???? #sorting numbers with an unnamed subroutine???? @numbers=STDIN;???? chomp(@sorted_ns=sort{$a=$b}(@numbers));???? print "the sorted numbers are:@sorted_nsn";???? ? [root@stationx p[详细]
-
perl中的while处理文件
所属栏目：[大数据] 日期：2020-12-16 热度：119
[root@stationx perl]# cat w.pl #!/usr/bin/perl $filename='/etc/passwd'; open(FILE,$filename)or die; while($line = FILE){ ($username,$secret,$uid,$gid)=split(":",$line); print "$username,$gidn"; } close(FILE); $filen='/etc/group'; open(GRO[详细]
