Perl程序设计中常用的函数之3
发表时间:2024-06-11 来源:明辉站整理相关软件相关文章人气:
[摘要]指令: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);