10、Perl编程：变量索引、切片与控制结构最佳实践

Perl编程：变量索引、切片与控制结构最佳实践

1. 数组索引的使用技巧

在处理数组时，获取数组末尾元素是常见需求。传统方法是从数组长度开始倒着计数，例如：

# Replace broken frames...
$frames[@frames-1] = $active{top};
# Final frame
$frames[@frames-2] = $active{prev};
# Penultimate frame
$frames[@frames-3] = $active{backup};
# Antepenultimate frame

或者从最后一个索引 $#array_name 开始倒着计数：

# Replace broken frames...
$frames[$#frames  ] = $active{top};
# Final frame
$frames[$#frames-1] = $active{prev};
# Penultimate frame
$frames[$#frames-2] = $active{backup};
# Antepenultimate frame

然而，Perl提供了更简洁的表示方法，使用负索引。负索引从数组最后一个元素开始计数，上述代码可以改写为：

# Replace broken frames...
$frames[-1] = $active