使用表达式从哈希键中删除引号

Question

我有：

$rejected->{join ',', @needed}++ unless @filtered;

但是

perlcritic

抱怨

title=带引号的哈希键 - 严重性 5::[HashKeyQuotes] 避免无用 报价

当然可以降低严重程度，但我想知道是否还有其他方法？

我能想到的两个是：

• 使用常数
• 将整个

  join

  移到

  {}

  之外。

还有其他方法吗？

Answer 1

我相信 PBP 不应该在

join

上使用这样的引号。尝试：

$rejected->{join(q{,}, @needed)}++ unless @filtered;

我没有看到任何

perlcritic

警告。

不过，一般来说，我会在代码审查中阻止此操作，并要求您将

join

移动到一个新的词法作用域变量，并使用一个合适的名称。