明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

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

[摘要]指令:exit 语法:exit 说明:退出执行的程序。 示例: print"i love cgi\n";exit;显示完"i love cgi"以后,将退出这个程序。 指令:keys 语法:keys(%array) 说明:取出关联数组%ARRAY中全部的ke...
指令: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);