使用map修改Perl数组元素遭PerlCritic警告，是否应忽略该提示？

我正在用PerlCritic检查代码规避错误，同时尝试减少foreach循环、缩减缩进量，发现偶尔用map能提升代码可读性。以下代码运行正常：

#!/usr/bin/env perl

use 5.040.2;
use warnings FATAL => 'all';
use autodie ':default';
use DDP {output => 'STDOUT', array_max => 10, show_memsize => 1};

my @arr = (1..9);
@arr = map {$_ /= 4} @arr;
p @arr;

但PerlCritic给出警告：

Don't modify $_ in list functions at line 9, column 8. See page 114 of PBP. (Severity: 5)

我查阅了《Perl最佳实践（PBP）》，书中给出的map不适于修改数组的示例比我的代码复杂得多，想请教是否应该继续使用map并忽略该警告？

解答 #

核心逻辑分析 #

PBP反对在map中修改$_，核心是担心复杂场景下的副作用——比如嵌套map、后续逻辑依赖$_的原始状态时，修改$_会导致难以追踪的bug。但你的代码逻辑很简单：本质是通过map生成新数组覆盖原数组，只是写法上用了修改$_的方式返回计算值。

推荐优化方案 #

没必要忽略警告，只需调整写法，既保持map的简洁性，又符合最佳实践：

@arr = map { $_ / 4 } @arr;

这种写法直接返回计算后的新值，完全贴合map的设计初衷——将输入列表映射转换为新列表，而非原地修改元素，同时彻底规避PerlCritic的警告。

关于是否忽略警告的建议 #

如果坚持原写法，虽然代码能运行，但会违背map的语义定位，长期来看不利于代码维护（尤其是团队协作时，其他开发者可能误解你是要原地修改原数组元素）。因此更推荐上面的优化写法，而非强行忽略警告。

内容的提问来源于stack exchange，提问作者con