Perl：按字母顺序对数组元素进行排序

Question

我有一个大数组，我想按字母顺序对数组的所有元素进行排序。

在前面的子程序中，数组的元素被推送到 tc_reg 数组。

我有一个名为@tc_lane 的数组。当我打印数组的元素时，它看起来像这样

tx0_abc
rx0_fgw
ref_ghv
..

现在我想像这样对这个数组进行排序，

ref_ghv
rx0_fgw
tx_abc
..

Answer 1

如果你愿意

rx0_fgw
rx10_fgw
rx2_fgw

使用

my @sorted = sort @unsorted;

---

如果你愿意

rx0_fgw
rx2_fgw
rx10_fgw

使用

use Sort::Key::Natural qw( natsort );

my @sorted = natsort @unsorted;

Answer 2

你只需要这样做：

@tc_lane = sort @tc_lane;