-
perl学习(8) 控制：unless,until,next,redo,last
所属栏目：[大数据] 日期：2020-12-16 热度：106
Perl 中实现了所有 C 的操作符！ Perl 力求代码最少！ ? 1.1.unless unless 的含义是：除非条件为真，否则执行块中的代码，和if正好相反 unless($fred=~ /^[A-Z_]w*$/i){ ?????? print “The value of $fred doesn’t looklike a Perl identifier name.n[详细]
-
perl学习(9) 实例：取出操作时间最长的100个记录
所属栏目：[大数据] 日期：2020-12-16 热度：105
需求描述： 日志记录了一次操作的时间,即server端接收包到发送结果到client端的时间，取出操作时间最长的100个记录。 ? 日志信息片段： [2013-09-13 15:23:50,445.500] [47028700024080] FATAL - socket = 9 [2013-09-13 15:23:50,446.156] [47028700024080][详细]
-
perl学习(10) 字符串处理函数和排序
所属栏目：[大数据] 日期：2020-12-16 热度：100
1.1.index Perl 查找子串第一次在大字符串中出现的地方，返回第一个字符的位置。 字符位置是从 0 开始编号的。如果子串在字符串的开头处找到，则 index 返回 0 。 如果子串不存在，则返回 - 1 . ? my $stuff = “Howordy world!”; my $where1 = index($stuf[详细]
-
Perl判断是否相等用==
所属栏目：[大数据] 日期：2020-12-16 热度：109
切记，切记。。。。。不要写成=。[详细]
-
Perl 语言简介
所属栏目：[大数据] 日期：2020-12-16 热度：52
1. Perl 像C一样强大，像awk， sed一样方便 2. Practical extraction and report language,特别适合web编程和系统管理 3. 内部集成了正则表达式和代码库CPAN 4. 变量定义：$,数组定义：@，散列定义：% 5.? 它可以很容易操作数字，文本，文件和目录，计算机和[详细]
-
Usage of hash in Perl
所属栏目：[大数据] 日期：2020-12-16 热度：120
基本用法 #初始化%h为空数组 %h={}; #用数组初始化%h为a=1,b=2? %h=('a',1,'b',2); #意义同上，只是另一种更形象化的写法。%h=('a'=1,'b'=2); #如果key是字符串，可以省略引号。下面这行和上面那行是一样的%h=(a=1,b=2); #用{}来访问print “$h{a}n”; #打[详细]
-
Example of hash in Perl
所属栏目：[大数据] 日期：2020-12-16 热度：112
#!/usr/bin/perl -wuse strict;use warnings;my %name=("fred"="flintstone","barney"="rubble","wilma"="flintstone",);my $length=keys %name;# Count the number of hashprint "$lengthn";while(my($k,$v)=each%name)# List all the elements of hash{pr[详细]
-
Usage of Array in Perl
所属栏目：[大数据] 日期：2020-12-16 热度：58
一、列表 列表是包含在括号里的一序列的值， 可以为任何数值，也可为空 ，如：(1,5.3,"hello",2)，空列表：()。 注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是 不同的，但它们可以互相转化或赋值 。 列表例： (17,$var,"a string") ($val[详细]
-
Subroutine in Perl
所属栏目：[大数据] 日期：2020-12-16 热度：52
子函数 子函数的定义 sub 子函数明{ #statement },子函数名如果重名，则后定义的覆盖前定义的，如果与系统函数名字则必须在子函数明前加＆来显示的调用。 子函数的调用 一般在子函数名前加调用，如果调用时，子函数已经在前面定义过则＆可以省略。调用的时候[详细]
-
perl 引用
所属栏目：[大数据] 日期：2020-12-16 热度：166
Perl引用 引用 引用一律声明为标量类型（即$开头的命名变量），使用运算符取引用? 对引用变量的修改等同于对引用指向实际数据的修改? 取变量引用：my $scalar_r = $scalar;? 取列表的引用：my $array_r = @array;? 取哈希的引用：my $hash_r = %hash;?[详细]
-
Can't locate ExtUtils/MakeMaker.pm
所属栏目：[大数据] 日期：2020-12-16 热度：61
?Can't locate ExtUtils/MakeMaker.pm 解决：yum install perl-ExtUtils-CBuilder perl-ExtUtils-MakeMaker[详细]
-
perl 里的<>和<STDIN>
所属栏目：[大数据] 日期：2020-12-16 热度：60
首先介绍一下@ARGV: 当perl脚本运行时， 从命令行上传递给它的参数存储在内建数组@ARGV中，@ARGV是PERL默认用来接收参数的数组，可以有多个参数 ，$ARGV[0]是表示接收到的第一个参数，$ARGV[1]表示第二个。 操作查看@ARGV来决定使用哪些文件。 如果表为空，[详细]
-
Perl中的隐藏变量
所属栏目：[大数据] 日期：2020-12-16 热度：128
$- 当前页可打印的行数 , 属于 Perl 格式系统的一部分 ? $! 根据上下文内容返回错误号或者错误串? $” 列表分隔符? $# 打印数字时默认的数字输出格式? $$ Perl 解释器的进程ID? $% 当前输出通道的当前页号? $ 与上个格式匹配的字符串? $( 当前进程的组ID? $)[详细]
-
perl 2.1.2 练习
所属栏目：[大数据] 日期：2020-12-16 热度：117
1.写一个程序，计算半径为12.5的圆的周长。 圆周长为2pi*半径 $radius = 12.5; $perimeter = $radius*2*3.141592654; print "perimeter is $perimeter"; 2.修改上述程序，用户可以在程序运行时输入半径，如果用户 输入12.5，那么结果就和上题一样。 $radius[详细]
-
perl Statistics::Descriptive Perl 的统计模块
所属栏目：[大数据] 日期：2020-12-16 热度：103
use strict;use warnings;use Statistics::Descriptive;my @temp=qw/26 25 23 23 26 25 24 26 28 27 26 23 28 26 25 27 27 23 24 25/;my $stat = Statistics::Descriptive::Full-new();$stat-add_data(@temp);my $mean = $stat-mean();#平均值my $variance[详细]
-
Perl内置常用函数
所属栏目：[大数据] 日期：2020-12-16 热度：149
1、join函数 #!/usr/bin/perl @array = (1,2,3,4,5,6); print join(",",@array); 2、vec函数 #!/usr/bin/perl # 16进制数字转为二进制数字 $hexdigit = 0xA; vec($data,8) = $hexdigit; print vec($data,1); print vec($data,1,1); 3、abs函数 ??? 绝对值 #![详细]
-
perl 邮件发送示例详解
所属栏目：[大数据] 日期：2020-12-16 热度：175
一、使用 Mail::Sender模块 先申请一个163的邮箱; #!/usr/bin/perl use warnings; use strict; use Mail::Sender; ? my $sender = new Mail::Sender { ? smtp ? ?= 'smtp.163.com', ? from ? ?= 'your_mail@163.com",helvetica; line-height:18px"> ? auth ?[详细]
-
perl5中锚位修饰符\A \z \Z 和perl4中^(开头)和$(结
所属栏目：[大数据] 日期：2020-12-16 热度：64
? 习惯使用perl4的开发者总是用^表示字符串开头锚位，用$表示字符串结尾锚位，比如^https:// 将会匹配所有以https://开头的字符串，同样，.bmp$将会匹配所有以.bmp结尾的字符串。但是到了perl5，有了A ，Z,z三种锚位，这三种锚位中，A与^相同，表示[详细]
-
Perl 字符匹配实例解说
所属栏目：[大数据] 日期：2020-12-16 热度：113
如果在Unix中曾经使用过sde,awk,grep这些指令的话,相信对于 Perl 语言中的文字处理模式(Regular Expression)应该不会感到陌生才对。在Perl语言中因为有这个功能,所以对于字符串的处理能力是非常强有力的。Regular Expression可视为用来处理字符串的一种模式([详细]
-
批量修改文件
所属栏目：[大数据] 日期：2020-12-16 热度：111
我们一个平台有好多项目配置，如果发现一个平台性bug，所有配置都要修改。 一个配置一个目录，一个一个改非常麻烦，我们有个平台有几十个项目配置，手工改工作量太大了。 写个工具处理这些文件： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22[详细]
-
nagios监控解决Perl脚本问题
所属栏目：[大数据] 日期：2020-12-16 热度：174
[root@test download]# ./check_memory.pl Can't locate Nagios/Plugin.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 .[详细]
-
学习Perl 第一讲
所属栏目：[大数据] 日期：2020-12-16 热度：118
Perl 最初的设计者为拉里?沃尔（Larry Wall），他于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。其中最重要的特性是它内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。 很多招聘要求熟练使用Perl Pyt[详细]
-
学习Perl 第2讲
所属栏目：[大数据] 日期：2020-12-16 热度：82
本视频为学习Perl随堂视频第二讲，主要讲解了Perl中数组的使用： 视频下载地址： http://pan.baidu.com/s/1cdOhO http://pan.baidu.com/s/1klv14 10月8日首期RHCA隆重开课，只要￥7200，详情 ： http://item.taobao.com/item.htm?spm=a1z10.1.w1004-19778748[详细]
-
学习Perl 第3讲，第4讲
所属栏目：[大数据] 日期：2020-12-16 热度：184
Perl作为一种脚本语言，功能强大，是系统管理的一个利器。熟练掌握Perl，可大大提高工作的效率。故，不管是否专门做Perl程序员，也不要看是否流行，要看是否够强大！掌握了Perl绝对是找到高薪工作的一个重要筹码！ 视频下载地址： http://pan.baidu.com/s/1v[详细]
-
柏林噪音算法 Perlin Noise
所属栏目：[大数据] 日期：2020-12-16 热度：70
http://freespace.virgin.net/hugo.elias/models/m_perlin.htm Perlin噪声 （ Perlin noise ）指由Ken Perlin发明的自然噪声生成算法 [1] 。由于Perlin本人的失误，Perlin噪声这个名词现在被同时用于指代两种有一定联系的的噪声生成算法。这两种算法都广泛地[详细]
