perl - 在perl中对间隔数组进行排序？

Question

我在 perl 中有一个数组，其中有一些间隔，例如:

@array = qw(1-5 7-9 10-15 20-58 123-192 234-256)

我正在尝试使用 sort 对其进行排序，但这是我获得的:

1-5 , 10-15 , 123-192 , 20-58 , 234-256 , 7-9

它是按第一个数字的第一个字符排序...如何按第一个数字的整个排序以获得下一个数组？

1-5 , 7-9 , 10-15 , 20-58 , 123-192 , 234-256

非常感谢你!

附言

我没有这方面的代码，我正在尝试命令

my @sorted = sort @array;

Answer 1

您需要为每个元素提取第一个数字，并使用 <=> 运算符进行数值比较，

my @array = qw(1-5 7-9 10-15 20-58 123-192 234-256);
my @sorted = sort {
  my ($aa,$bb) = map /^([0-9]+)/, $a,$b; 

  $aa <=> $bb;
} @array;