@array2=reversesort(@array);
(3)chop--Perl数组去尾
chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。而如果它作用到Perl数组上，则将Perl数组中每一个元素都做如此处理。
@list=("rabbit","12345","quartz");
chop(@list);#@list=("rabbi","1234","quart")now
(4)join/split--连接/拆分
join的第一个参数是连接所用的中间字符，其余则为待连接的字符Perl数组。
$string=join("","this","is","a","string");#结果为"thisisastring"
@list=("words","and");
$string=join("::",@list,"colons");#结果为"words::and::colons"
@array=split(/::/,$string);#@array=("words","and","colons")now
3 Hash Array(Associative Array)：
perl hash 常见用法
基本用法
# 初始化 %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"; # 打印1$h{b} = '2b';print "$h{b}n"; # 打印2b# 删除key用deletedelete $h{b}; # 从$h删除'b'
清空hash
undef %h
得到hash的所有键值
# 得到所有keys，顺序取决于hash函数，或者说是乱序
@all_keys = keys %h;
# 所有键值，是按hash的值从大往小排列的。值的比较是数字比较(比如说，10>9)
@all_keys = sort{$h{$b}<=>$h{$a}} (keys %h);
# 所有键值，是按hash的值从小往大排列的。值的比较是数字比较
@all_keys = sort{$h{$a}<=>$h{$b}} (keys %h);
# 所有键值，是按hash的值从小往大排列的。值的比较是字符串比较（比如说，'10' < '9'）
@all_keys = sort{$h{$a} cmp $h{$b}} (keys %h);
判断hash是否包含key
exists($h{$key});
Hash的长度
想要知道一个hash存放多少数据
$hash_size = keys %h
# 把%h的长度放到$hash_size中
print scalar kes %h, "n"
# 打印%h的长度。这里用了scalar来返回数组长度。
遍历一个hash
while (my ($k, $v) = each %h) {print "$k ---> $vn";}
Reference引用
Reference类似于C/C++的指针
$h_ref = %h;
# 获得一个hash的reference%aHash = %{$h_ref};
# 把hash reference当成hash用$value = $h_ref->{akey}
# 这个和%h{akey}是一样的
传递hash到函数
一般都是传递一个reference到函数
%h = ();$h{a}=1;foo(%h)print $h{b}, "n";
# 打印出2。
这个值来自于函数foo() sub foo {my ($h) = @_;print $h->{a}, "n";
# 打印出1$h->{b} = 2;}
函数返回hash，或者hash引用(hash reference)
函数可以返回hash
sub foo {my %fh;$fh{a} = 1;return %h;} my %h = foo();print
二 控制结构(Control Statements)
1 选择 if结构
Perl的条件控制叙述和C语言很像，让使用者很快就能掌握它。不过Perl比C语言又另外多了些实用的语法，我用底线标出来，大家一看便知。
