在Perl中对数组排序

Perl中的sort()函数根据ASCII数值标准对数组的每个元素进行排序。此函数具有以下语法-

语法

sort [ SUBROUTINE ] LIST

该函数对LIST排序并返回排序后的数组值。如果指定了SUBROUTINE，则在排序元素时将应用SUBROUTINE内部的指定逻辑。

示例

#!/usr/bin/perl
# define an array
@foods = qw(pizza steak chicken burgers);
print "Before: @foods\n";
# sort this array
@foods = sort(@foods);
print "After: @foods\n";

输出结果

这将产生以下结果-

Before: pizza steak chicken burgers
After: burgers chicken pizza steak

请注意，排序是根据单词的ASCII数值进行的。因此，最好的选择是首先将数组的每个元素转换为小写字母，然后执行排序功能。