perl
文章平均质量分 79
dengdaiforever
这个作者很懒,什么都没留下…
展开
-
写一个子程序,名为&above_average,将一列数字作为其参数,返回所有大于平均值的数字(提示:
#! usr/bin/perlsub average{my $total;my $n=0;my $average;foreach(@_){$total+=$_;$n++;}$average=$total/$n;$average;}sub above_average{@above=();my $t=&average(@_);fo原创 2012-09-07 13:28:27 · 1355 阅读 · 0 评论 -
perl读取当前时间和读取某个文件夹下的所有文件
#!/usr/bin/perluse strict;sub getTime{ my $time = shift||time(); my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); $mon++; $sec = ($sec $min = ($min $hour =原创 2013-04-08 13:29:04 · 2242 阅读 · 0 评论 -
前缀算法
前缀算法能够从一个给定数据空间中找出其前缀特征,即前缀集合。前缀集合具有确定性,能够匹配该前缀集合的数据一定属于该数据空间,否则将一定不属于该数据空间。这样,对一个数据空间的描述既可以利用上下边界来表示,也可以使用该数据空间的前缀特征来表示。算法1给出了计算给定区间前缀集合算法的伪代码。算法的输入是n位二进制数区间的起始值a1a2...an和结束值b1b2...bn,二进制数的左边是高位,右边转载 2012-10-21 23:33:51 · 7946 阅读 · 0 评论 -
perl写的一个文件二进制文件trace切割
#! usr/bin/perl -wopen (TRACE,"removeflash.trace") or die "$!";binmode(TRACE);#{#die"open file failed!($!)";#}open RESULT,">origin.txt";my $th_length=20; #0-19my $pr_lengt原创 2012-10-15 14:57:17 · 1484 阅读 · 0 评论 -
perl模式匹配学习笔记
优先级1.在此优先级表的最顶端是括号:(()),在分组和引用内存值的时候使用。括号内部的任何部分比括号外的部分结合更紧密。2.第二级是数量词。这里有星号(*), 加号(+),问号(?)以及由花括号表示的数量词,如{5,15}, {3, }, {5}等。它们通常和前一项元素结合。3.第三级的是锚定和序列(sequence)。锚定包括(^) 表明字符串的开头,($)表明结尾,(原创 2012-10-15 14:53:13 · 14462 阅读 · 0 评论 -
Perl函数pack/unpack解释
函数名pack调用语法formatstr = pack(packformat, list);解说把一个列表或数组以在实际机器存贮格式或C等编程语言使用的格式转化(包装)到一个简单变量中。参数packformat包含一个或多个格式字符,列表中每个元素对应一个,各格式字符间可用空格或tab隔开,因为pack忽略空格。 除了格式a、A和@外,重复使用一种格式多转载 2012-10-09 22:10:06 · 657 阅读 · 0 评论 -
perl文件操作
一、打开文件:$OpenFileFlag = open(FILEHANDLE,"模式标识符 FileName");如果打开成功,则返回真值(非空值);如果打开失败,则返回假值(空值);文件的默认访问模式是只读;1、使用open函数进行文件重定向:$OpenFlag = open(HFCAT,"cat file* |");则open函数先把cat命令的转载 2012-10-09 19:50:28 · 3298 阅读 · 0 评论 -
perl字符串函数
1、$position = index(string,substring,skipchars); 该函数返回子串substring在字符串string中的位置,如果不存在,则返回-1;参数skipchars是可选参数,表示查找之前跳过的字符数,即:从该位置处开始查找;2、rindex(string,substring,skipchars):功能与index()类似,不同的是转载 2012-10-09 19:49:32 · 1340 阅读 · 0 评论 -
perl将一个文件中的特定行写入到另一个文件中
#输出文件中第六个字符为“:“的行到另一个文件中去#! usr/bin/perlopen WEN,"dev.txt";open LOG,">jieguo";while(){$bj=substr("$_",6,1);if($bj eq ":"){print LOG $_;}}close WEN;close LOG;或者#! usr/bi原创 2012-09-07 18:02:18 · 12349 阅读 · 0 评论 -
perl语言三步曲
第一本.《Perl语言入门(Learning Perl)》 Perl语言入门 第六版中文pdf扫描版(Learning Perl, 6th Edition)http://www.jb51.net/books/44237.html第二本.《Intermediate Perl》 下载地址: http://www.jb51.net/books/58888.html转载 2012-09-08 12:43:22 · 983 阅读 · 0 评论 -
perl视频
第1集:第一章 Perl的概述http://www.boobooke.com/v/bbk2869第2集:第二章 Perl的简单变量http://www.boobooke.com/v/bbk2969第3集:第二章 Perl的字符串变量http://www.boobooke.com/v/bbk3074第4集:第二章 字符串变量和小结http://www.boob转载 2012-09-08 12:57:13 · 709 阅读 · 0 评论