-
print输出数组有无双引号的区别
所属栏目：[大数据] 日期：2020-12-16 热度：180
偶然发现perl中用print输出数组的2种情况： 1，print "@array" ?? 此时数组各元素间以空格隔开。 2，print @array ?? 此时数组连续输出，各元素间没有空格隔开。[详细]
-
Learning Perl 2
所属栏目：[大数据] 日期：2020-12-16 热度：90
1.子程序 ? 1).创建子程序：使用关键字sub sub marine { print "Hello,worldn"; } ? ? calling subroutines，使用号 marine (2).返回值：所有的子程序最后一个表达式的运算结果都当作返回值。所以子程序只有“”有用返回值“和无用返回值之分。所以让一个类[详细]
-
Perl获得调用shell地返回值
所属栏目：[大数据] 日期：2020-12-16 热度：128
my $ret=system("$cmd") 8;[详细]
-
如何运行Perl和查看帮助
所属栏目：[大数据] 日期：2020-12-16 热度：146
*[Perl入门]如何运行Perl和获得帮助 by?endo@kyxk.net **如何运行Perl 本来单独写这一章的主要目的是介绍Windows下运行Perl的配置，不过既然上面版大已经 给出了一个攻略。那么这一章基本上就只剩下一些废话了。 **第一个Perl程序 让我们来回顾上一章的典型[详细]
-
perl语言入门(3)
所属栏目：[大数据] 日期：2020-12-16 热度：181
书接上文 7.reverse和sort ??? 反转 列表或数组的值,并返回。 ??? @fred = 6..10; ??? @barney = reverse(@fred); ??? @barney = reverse 6..10; ??? sort ??? 排序，默认数字1开头的排在9前，返回排序后的结果。 ??? 6.标量和列表上下文 ??? 注意：不要期望[详细]
-
perl sort
所属栏目：[大数据] 日期：2020-12-16 热度：138
http://bbs.chinaunix.net/thread-636546-1-1.html ? 简简单单讲sort 仙子注：本文档和仙子前面的2篇文档"简简单单讲grep"，"简简单单讲map"，都译自 网络 ，加上仙子自己的解释整理而成。原文档出自： http:// web .archive.org/web/20041123005900/http://[详细]
-
perl报表输出
所属栏目：[大数据] 日期：2020-12-16 热度：50
转载本站文章请注明，转载自：扶凯[http://www.php-oa.com] 本文链接: http://www.php-oa.com/2009/10/19/perl-format.html perl有最好的文本数据处理能力.这是大家都知道的.在perl本身有一个别的软件没有的小功能,就是Perl格式.它相当于简单的命令行报表和[详细]
-
Learning Perl 3
所属栏目：[大数据] 日期：2020-12-16 热度：147
?Perl中的正则表达式 ? 1. 使用简易模式 如果匹配对象是$_的内容。只要把模式写在一对//中就可以。即m//简写 $_="Fred" if (/fred/) { #... } ? 2. 元字符 . 匹配任何单一字符，n除外。 如果要想包含n在多行匹配，需要用s来代替. 如果想让.表示字面意义，[详细]
-
Perl十六进制数值计算样例
所属栏目：[大数据] 日期：2020-12-16 热度：94
sub getNextMacAddr { my ($oriAddr,$delimeter,$radix) = @_; D($oriAddr,$delimeter); my @addrAry = split(/$delimeter/,$oriAddr); D(@addrAry); my $result = ""; for (my $i=scalar(@addrAry)-1; $i0; $i--) { D("addrAry[$i] is: ",$addrAry[$i]); my[详细]
-
若干有用的Perl命令和代码样例
所属栏目：[大数据] 日期：2020-12-16 热度：76
查看已经安装的Perl Module： Windows ActivePerl: ppm list / Linux: instmodsh? - l 生成格式化的日期字符串 sub getFormatTime { my $result = ""; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $result = sprintf("%04[详细]
-
从一个文件中随机抽取N行方法
所属栏目：[大数据] 日期：2020-12-16 热度：67
从M行的文件随机抽取N行(可以假定M=N)，这是需要对数据进行抽样处理时很长常见的需求。 首先想到的方法是每读取一行，扔一个0到M-1的随机数，如果随机数小于N,则输出该行，否则不输出。Perl源代码如下： ? #!/usr/bin/perl # subset.pl? # Usage: sub_set.pl[详细]
-
perl正则表达式实现大写字母转小写字母
所属栏目：[大数据] 日期：2020-12-16 热度：83
这个功能不难，但是要求必须用s///的形式，而且后面不能加第三个参数，不能是s///g这样的形式。 不过可以采用多个这样的表达式。 例如? s/A/a/ s/B/b/ s/AB/ab/ ......... ....... 最终就是要求所有这些表达式组合起来，使得不论输入多少个大写字符，都会被[详细]
-
Learning Perl 4
所属栏目：[大数据] 日期：2020-12-16 热度：88
1. 控制结构 所有控制结构都可以做条件修饰符:command if (); unless(){} 等同于if(! ){} unless(){}else{} until(){} 等同于while(! ){} {} 裸块，可以用来限定my修饰符 if(){}elsif(){}...else{} ++i,i++ foreach (@mylist){print $_}; for(;;){} foreach[详细]
-
[实战运维小技巧]-解决perl命令执行或编译问题
所属栏目：[大数据] 日期：2020-12-16 热度：61
解决perl命令执行或编译问题: 执行如下命令时 报错： [root@oldboyetc]# perl -pi -e 's|^passwd:???? files|passwd:???? files ldap|g' /etc/nsswitch.conf perl: warning: Setting locale failed. perl: warning: Please check that your locale settings:[详细]
-
o relly的perl语言入门
所属栏目：[大数据] 日期：2020-12-16 热度：63
其中正文写的一般，不过底下的注还真不错。推荐[详细]
-
Learning Perl 5
所属栏目：[大数据] 日期：2020-12-16 热度：57
?1. 文件测试操作符 warning "Oops,A file called '$filename' already exists。n" if -e $filename; warning "Config file is looking pretty old!n" if -M CONFIG 28 将超过90天没有访问，且大于100KB的文件归档到磁带。 my @original_files = qw /Fred[详细]
-
Perl grep
所属栏目：[大数据] 日期：2020-12-16 热度：100
在Perl中，我们可以把很长的代码缩写成很小的片段，这就是Perl有时候看上去很复杂和简洁的原因。以下是Perl的grep一个用法。大家都知道在Linux系统中，也有一个同名的grep命令，它是一个非常不错的命令，同样Perl 的grep也一样。 假如你要从一堆数据中取出唯[详细]
-
简版：Perl产生随机密码
所属栏目：[大数据] 日期：2020-12-16 热度：84
让Perl产生随机密码的方法应该有很多种，在这里只写了个简单的，满足需要就可以了。其实也就是产生一个字符串而已。如下: #!d:/perl/bin/perl.exe @a=(0..9,'a'..'z','A'..'Z','#','$','%','*','!','@','^','(',')'); $passwd=join '',map{$a[int rand @a]}[详细]
-
perl socket传hash
所属栏目：[大数据] 日期：2020-12-16 热度：133
http://www.perlmonks.org/?node_id=718648 # server.pl use strict; use warnings; use Data::Dumper; use JSON::XS; use IO::Socket; use Sys::Hostname; use constant BUFSIZE = 1024; my $JSONObject = JSON::XS-new-ascii-pretty-allow_nonref(); my $h[详细]
-
perl socket传hash（use Storable）
所属栏目：[大数据] 日期：2020-12-16 热度：195
cpan关于Storable的例子 use Storable qw ( store retrieve freeze thaw dclone ); %color = ( 'Blue' = 0.1 , 'Red' = 0.8 , 'Black' = 0 , 'White' = 1 ); store ( %color , 'mycolors' ) or die "Can't store %a in mycolors!n" ; $colref = retrieve ([详细]
-
Perl不重复的文件行输出
所属栏目：[大数据] 日期：2020-12-16 热度：115
在日常的文本处理中，有时候要输出唯一的行，这种工作有多种方法实现... 以下是一种： my %hash; while () { ? ? chomp; ? ? if (defined $hash{$_}) { ? ?? ???$hash{$_} = undef;? ? #重复？ ? ?? ???next; ? ? } ? ? $hash{$_} = [$_,$.]; } my @uniq = g[详细]
-
一文本处理问题
所属栏目：[大数据] 日期：2020-12-16 热度：83
最近一直在学习PERL的文本处理，今天在CU上遇到一个问题，练习了一下，结果没搞定... while(DATA){ ??? if($.==1){ ??? ??? chomp; ??? ??? %tab=(); ??? ??? @b=map{((++$tab{$_}) ==2)?($_.$tab{$_}):($_)} split(/s+/,$_); ??? ??? print "@bn"; ??? }e[详细]
-
perl语言入门(4)
所属栏目：[大数据] 日期：2020-12-16 热度：180
? 第五章 输入与输出 1.读到文件的结尾，STDIN会返回undef。 ??? print (); ??? 其实也是一个函数调用，括号可有可无。 ??? print (2+4)*2 ??? # 相当于(print 2+4)*2 ??? -连字符相当于标准输入 ??? print 2*(2+4) # 这个是正确的 ??? 如果在列表上下文中调[详细]
-
Perl初试
所属栏目：[大数据] 日期：2020-12-16 热度：88
#!/usr/bin/perl #第1、2学时 入门、数字和字符串 #ex01 #print qq(Hello,world!) #qq() 取代了双引号 #print q/Hello,world!/ #取代双引号 #ex02 #$_="$_ stand for default value"; #print;#print the value of $_ #ex03 #$radius = 50; #$area = 3.14*($r[详细]
-
关于perl引用的总结
所属栏目：[大数据] 日期：2020-12-16 热度：175
perl的引用类似于C语言的指针， 1 关于标量变量的引用： $name = "zhang"; $ref = /$name;? #"/"增加此符号表示对标量$name的引用，即$ref指向$name。 print $ref;#打印出的值为地址 print $$ref; #打印出引用的值，为zhang.? 增加的此$号表示引用的对象是个[详细]
