perl的 reverse 和sort操作符的例子

发布时间:2019-12-30编辑:脚本学堂
reverse 读取列标值,并按相反的次序返回该列表。sort 读取列表的值并进行排序。

reverse 读取列标值,并按相反的次序返回该列表。
@fred=6..10;
@barney=reserve(@fred);  #得到@barney 10,9,8,7,6
 
sort 读取列表的值并进行排序

复制代码 代码如下:
#!/usr/bin/perl -w
@a=qw/c f b a z h d/;
@b=sort(@a);
print "@bn";  # 得到a b c d f h z
复制代码 代码如下:
#!/usr/bin/perl -w
@a=qw/c f b a z h d/;
@b= reverse sort(@a); # 先逆序然后再排序
print "@bn";