arrays - 如何将 splice 或任何其他函数应用于 Perl 中的几个不同数组？

Question

我正在尝试缩短以下代码:

    if ( /MATCH/ ){
        splice @identifiers,            $i, 1;
        splice @sequences,              $i, 1;
        splice @optional_informations,  $i, 1;
        splice @quality_scores,         $i, 1;
        splice @barcodes,               $i, 1;
    }

有没有办法遍历每个数组并执行拼接或任何其他功能？

Answer 1

您可以遍历一组引用:

@all_arrays = \( # Note the ref-making backslash applied to the list
    @identifiers,
    @sequences,
    @optional_informations,
    @quality_scores,
    @barcodes
);
for $array (@all_arrays)
{
    splice @$array, $i, 1;
}