正则表达式 – 使用正则表达式进行Perl排序

我有一个像这样的perl数组字符串：

my @arr = ( "gene1 (100)","gene2 (50)","gene3 (120)",... );

如何用括号中的整数对数组进行排序？

解决方法

这显示了直截了当的方式.排序块将$aa和$bb分别设置为$a和$b中的数字值.然后< =>用于数字比较它们.

除非基本技术证明太慢,否则不需要更加模糊的转换方法.

use strict;
use warnings;
use 5.010;

my @arr = ( "gene1 (100)",);

my @sorted = sort {
  my ($aa) = $a =~ / \(  (\d+)  \) /x;
  my ($bb) = $b =~ / \(  (\d+)  \) /x;
  $aa <=> $bb;
} @arr;

say for @sorted;

产量

gene2 (50)
gene1 (100)
gene3 (120)