我正在尝试缩短以下代码：
if ( /MATCH/ ){
splice @identifiers,$i,1;
splice @sequences,1;
splice @optional_informations,1;
splice @quality_scores,1;
splice @barcodes,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,1;
}