答案

map 和 grep 是 Perl 中用于数组操作的强大函数：

• map 将表达式应用于列表的每个元素，并返回一个包含结果的新列表。
• grep 返回列表中的元素，对于这些元素，表达式返回真值（过滤）。

使用示例：

my @nums = (1, 2, 3, 4, 5, 6);
my @squared = map { $_ * $_ } @nums;     # (1, 4, 9, 16, 25, 36)
my @even = grep { $_ % 2 == 0 } @nums;   # (2, 4, 6)

重要事项

• 作用域： 在 map 和 grep 的块内部，变量 $_ 默认包含当前元素。修改 $_ 将改变原始数组中的元素，如果数组通过引用传递或显式使用 $_（例如，通过 foreach 的别名）。
• 返回值： map 始终返回一个列表，grep 返回原始列表的一个子集。

---

倾斜问题

问题： 以下代码做了什么，为什么？

my @nums = (1..5);
my @result = map { $_++ } @nums;
print "@nums
";

答案： 这段代码不会修改原始数组 @nums。运算符 $_++ 在块内增加了变量的值，但不会将这些更改保存到原始数组中，因为 map 返回了更改后的值，但原始数组没有受到影响（除非通过 foreach 使用别名）。

示例：

my @nums = (1..5);
my @result = map { $_++ } @nums;   # @result 将是 (1,2,3,4,5)，@nums 不变
print "@nums
";                  # 输出：1 2 3 4 5

---

由于不了解主题的细微差别导致的实际错误示例

---

故事 在一个项目中，开发人员期待 map { $_++ } @array 后，数组 @array 将被更改。结果，程序继续使用旧值，导致数据聚合时的错误计算。

---

故事 在报告系统中，在通过 grep 过滤数组时，块内不小心使用了赋值命令 $result = $_，导致所有元素被重写到同一个变量中，丢失了数据来源。这导致调试变得复杂，并导致报告中的损失。

---

故事 在集成脚本中应用了嵌套 map，并忘记内部上下文也使用了共享变量 $_，这在修改元素时导致了不可预测的行为，因为内部的 map 覆盖了结果数组中的值。