perl 函数

1、chomp ： 如果字符串结尾有换行符，chomp 可以去掉它。这基本上就是它能完成的所有功能

2、last： 同c语言的break

3、my loca l

例如：

subA local变量，可以被A子程序调用，my不行

4、$name=<>;

接收键盘输入（可以让输出结果持续显示）

5、@array =(1,3,5,7...11);

7跟11中间的数值为8，9，10

$array[$#array]取最后一个值

6、@array= qw/1 2 3 4 5 3 56/;或者 @array= qw(1 2 3 4 5 3 56);

7、split

Perl中的一个非常有用的函数是split - 把字符串进行分割并把分割后的结果放入数组中。这个函数使用规则表达式（RE），如果未特定则工作在$_变量上。
split函数可以这样使用：
$info = "Caine:Michael:Actor:14, Leafy Drive";
@personal = split(/:/, $info);其结果是：
@personal = ("Caine", "Michael", "Actor", "14, Leafy Drive");
如果我们已经把信息存放在$_变量中，那么可以这样：
@personal = split(/:/);
如果各个域被任何数量的冒号分隔，可以用RE代码进行分割：
$_ = "Capes:Geoff::Shot putter:::Big Avenue";
@personal = split(/:+/);
其结果是
@personal = ("Capes", "Geoff", "Shot putter", "Big Avenue");

8、hash表

my %hash= (

'li'=>'1985.11.11',

'liu'=>1985.11.12,

xing=>'1992.06.10',

);

或者 my %hash = (1,'one',2,'two',3,'three');

或者 my %hash = qw/1 one 2 two 3 three/;

或者

$hash{1} = 'one';

$hash{2} = 'two';

$hash{3} = 'three';

9、对应hash表跟数组，有几种常用运算：

map｛｝   例： my @array = map {$_*10 } qw/45 33 8 75 21 15 38 69 46/; #每个值*10；

grep｛｝   例： my @positive = grep {$_ > 0} @array;  # 把@array裡大於零的數字取出 ;

sort｛｝    例： @array = sort { $b <=> $a } @array; #@array从小到大排列；

join             例： print join ',', @array; # 显示的时候，每个元素中间加逗号；

mykeys     例：@keys = keys(%hash);							 #hash特有，取键值

values 
例：my @values = values(%hash);					    #hash特有，取值		

delete   例：

delete $hash{video};

 #hash特有，删除

exist

例： print"exists"if(grep{$_ eq 'video'} keys (%hash));
等价于 print"exists" if (exists $hash{video});

数组中的foreach （另一篇文章有解释）对应hash表中的each 	

例：

my ($key, $value) = each (%hash)#取每个键值跟值分别放进$key,$value内

10 、单取hash或者数组都是$array[6]或者${six}

11 、 @_ 代表当前数组、序列     $_ 代表当前$类自变量