perl_常用的函数

华风

　　这里说的是一些常见的内置函数：
时间函数：
　　time;
　　返回1970年1月1日起经过的无跳跃秒数。可以用gmtime和localtime函数做进一步的处理。
　　times;
　　返回一个四个元素的列表，给出当前进程及其子进程用户和系统时间，精确到秒。
　　（$user,$system,$cuser,$csystem）=times;
　　在标量上下文中，times返回$user.
　　localtime EXPER;
　　把一个由time函数返回的时间转换成一个9个元素的列表，同时把时间按照本地时区转换
　　典型使用如下：
　　##     0    1   2   3    4    5   6   7   8
　　（$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst）=localtime(time);
　　例如：要取得机器当前时间：
　　$time=localtime;
　　print $time;
　　gmtime EXPR;
　　把一个由time函数返回的时间转换成一个8个元素的列表，同时把该时间转换成标准的格林威治时区时间。
　　数组函数：
　　数组函数列表如下：
　　pop         从数组的末尾删除元素          @values=(1,2,8,14);
　　$result=pop(@values);#结果是14
　　print "@values\n";#1 2 8
　　push    从数组的末尾添加元素              @a=qw(a b c d);#@a是abcd
　　push@a,e;#@a是abcde
　　print "@a\n";
　　shift   从数组的开头删除元素              @a=qw(a b c d);#abcd
　　shift@a;#bcd  print "@a";
　　unshift  从数组的开头添加元素             @a=qw(a b c d);#abcd
　　unshift(@a,g)#gabcd  print "@a";
　　reverse  把数组倒序                       @values=qw(a b c E d);
　　@back=reverse(@values); #print "@back\n";
　　sort        按字典方式排序              @values=qw(a b c E d);
　　@art=sort@values      #print "@art\n";
　　#实现上面同样目地，但是使用了显式的排序函数@art=sort{$a cmp $b}@values;
　　#现在是大小写不敏感（忽略大小写）   @art=sort{uc($a) cmp uc($b)}@values;
　　#现在是倒排序                      @art=sort{$b cmp $a}@values;
　　#按数字递增方式排序              @art=sort{$a  $b}@values;
　　#按数字递减方式排序               @art=sort{$b  $a}@values;
　　#现在使用内联函数按照值而不是关键字的方式排序哈希表%sr
　　%a=(
　　"www"=>1,
　　"eee"=>2,
　　);
　　@hx=sort{$a{www}$a{eee}}keys%a;
　　print "@hx\n";
　　map  是一种道具，可以让你的函数或者表达式，很方便地施用到一系列对象上去。
　　语法：map BLOCK LIST
　　map EXPR, LIST
　　BLOCK是一个用{}包围的代码块。EXPR可以是子函数名、正则表达式等。LIST是输入列表。
　　简单地说，map就是起了一个替代foreach循环的作用，map会把数组LIST中的元素挨个取出，放到系统变量$_中，然后调用BLOCK去 处理。值得强调的是，除非有很特殊的理由，不要去修改$_的值，因为修改$_就是直接改了原始数组里的元素！BLOCK  处理过的结果由map返回，仍然是一个数组。
　　一个例子：计算一系列文件大小
　　my @sizes = map { -s $_ } @filenames;
　　在一个例子：将数值转换成字符
　　@number=qw(80 101 114 108);
　　@characters=map(chr $_, @number); print "@characters\n" 为 Perl
　　split 语法：split /PATTERN/,EXPR,LIMIT
　　split /PATTERN/,EXPR
　　split /PATTERN/
　　split
　　分割一个字符串成为一个字符串的列表并返回该列表。分隔符是匹配PATTERN的字符串，因此分隔符长度可能大于一。
　　一个简单的例子：
　　$info="Caine:Michael:Actor:14,Leafy Drive";
　　@perlsonal=split(/:/,$info);
　　#####@perlsonal=("Caine","Michael","Actor"，"14,Leafy Drive");
　　如果想把列表元素中的前后的空格去掉，可以把中间一行改成：
　　@perlsonal=split(/\s*:\s*/,$info);
　　缺省情况下，split函数保留开头的空字符串，而删除结尾的空字符串。
　　grep  语法：
　　grep BLOCK LIST
　　grep  EXPR,LIST
　　通常的调用方式是使用一个正则表达式，加上一个数组，但并不局限于此。
　　对每个传入数组的元素执行BLOCK或EXPR，然后返回由表达式为真的元素组成的数组。在标量上下文，返回表达式为真的次数。
　　例如，要排除注释行：
　　@bar=qw(s b c #dd d e);
　　print "@bar\n";
　　@foo=grep(!/^#/,@bar);
　　print "@foo\n";
　　结果为：s b c #dd d e
　　s b c d e
　　或等价的：
　　@foo=grep{!/^#/}@bar
　　注意：可以通过$_访问数组元素，当然也可以通过他修改数组元素，但是修改同时也反映到原数组中去了。
　　scalar  返回数组大小。
　　@bar=qw(s b c #dd d e);
　　print scalar@bar;  #结果为6；
　　delete  清除该元素的位置，但不改变各元素的位置。
　　@bar=qw(s b c #dd d e);
　　delete $bar[3];
　　print join(':',@bar);   #结果为s:b:c::d:e
　　exists  判断该元素是否已被删除。
　　@bar=qw(s b c #dd d e);
　　delete $bar[3];
　　print join(':',@bar),"\n" unless exists $bar[3];  #结果s:b:c::d:e；如果没有删除就不打印东西了。
　　注意：它不同于判断该元素是否undef；
　　@bar=qw(s b c #dd d e);
　　undef $bar[3];
　　print "exists\n" if exists $bar[3];      结果为：exists
　　splice  清除该元素的位置。
　　@bar=qw(s b c #dd d e);
　　splice(@bar,3,1);
　　print join(':',@bar),"\n";   #结果为：s:b:c:d:e
　　undef 让数组变成空白。
　　chop  每一个元素去掉最后一个字符
　　@bar=qw(s b c #dd d e);
　　chop(@bar);
　　print join(':',@bar),"\n"; #结果为：:::#d::
　　chomp  去掉每一个元素尾部的换行符
　　比较数组是否相等：
　　use Array:compare;
　　@arr1=0..10;
　　@arr2=0..10;
　　my $compl=Array::Compare->new;
　　if($compl->compare(\@arr1,@arr2)){
　　print "数组是相等的\n";
　　}else{
　　print "数组是不同的\n";
　　}
　　哈希表
　　Perl中的哈希表（Hash）用来存储关键字——值对。有的也把它叫做关联数组。哈希表相关的函数列表如下：
　　keys        返回一个键值的数组。
　　$ranks{aa}=1;
　　$ranks{bb}=2;
　　@teams=keys(%ranks);
　　print "@teams\n";   #结果teams(aa,bb)或(bb,aa)
　　values     返回一个值的数组。###用法和上面的一样
　　each       返回一个“关键字——值”对。随后的调用返回剩下的“关键字——值”对，可用这个函数来遍历hash。
　　$ranks{aa}=1;
　　$ranks{bb}=2;
　　while(($team,$rank)=each(%ranks)){
　　print ("Ranking for $team is $rank\n");
　　}#结果为    Ranking for bb is 2
　　Ranking for aa is 1
　　delete    从hash删除一个“关键字——值”对，返回被删除的元素的值。
　　$ranks{aa}=1;
　　$ranks{bb}=2;
　　$x=delete $ranks{"aa"};#现在%ranks仅剩一个"关键字---值"对了.
　　print ("$x\n"); #$x是1
　　exists    判断该元素是否已被删除。
　　$ranks{aa}=1;
　　$ranks{bb}=2;
　　print ("存在\n")if exists $ranks{aa}; #打印出"存在"。