<分区>
用 Perl 编写以下代码的最有效方法是什么:
my $index = 0;
foreach ( @spec ) {
if ( $module =~ m/$_/ ) {
splice(@spec, $index, 0, $module);
last;
}
$index++;
}
这很好用。只是显得有点啰嗦。我的想法是，在数组中找到 $module 的匹配项时，我添加了一个条目。我想让数组保持一定的顺序并排序。
即如果我的数组是 [a,b,c,d] 而我的 $module 是 'c'，我希望结果数组是是 [a,b,c,c,d]。