Perl程序设计中常用的函数之3

指令：exit

语法：exit

说明：
退出执行的程序。

示例：
print"i love cgi\n";
exit;

显示完"i love cgi"以后，将退出这个程序。

指令：keys

语法：keys(%array)

说明：
取出关联数组%ARRAY中全部的key。

示例：
%NAME=(1,"mike",2,"michael");
@readkey=keys(%NAMES);----------------- #这时@readkey=(1,2);

指令：values

语法：values(%array)

说明：
取出关联数组%ARRAY中全部的value。

示例：
%NAMES=(1,"mike",2,"michael");
@readval=values(%NAMES); ---------------- #这时@readval=("mike","michael");

指令：reverse

语法：reverse(@array)

说明：
将数组@array中的元素由后到前重新排列。

示例：
@back=("A","B","C","D","E");
@back=reverse(@back);--------------------- #这时@back=("E","D","C","B","A");

指令：sort

语法：sort(@array)

说明：
将数组中的元素由小到大排序，如果要由大到小排序的话，要加上reverse这个函数。

示例：
@abc=("d","b","c","a");
@abc=sort(@abc); -------------------------- #这时@abc=("a","b","c","d");
@abc=(reverse sort@abc); --------------- #这时@abc=("d","c","b","a");
这个语法也可以写成 @abc=(reverse sort(@abc));
@number=(5,2,10);
@number=sort(@number);
上面示例用sort函数来排序数值的时，会出差错，因此要用下面到下面这一句。 @number=(sort{$a<=>$b}@number); -----------#这时@number=(2,5,10);

……