遍历 Perl 集合，计算新值

Question

我有一个 Perl 脚本，其中包含以下行：

print $_->{label} || $_->{irq}, "=", $_->{count}, "; " for @irqs;

@irqs 是某种集合（我不是 Perl 程序员），pushed 到程序的其他地方。

我有另一个哈希集合，其中键等于集合 @irqs 中的 $_->{label} 或 $_->{irq} 的值。

我不想在上面的语句中打印$_->{count}，而是打印$_->{count} - X，其中X是哈希值。

我确信我可以通过手动迭代 @irqs 并将 $_->{label} 或 $_->{irq} 推入具有计算值的新集合来做到这一点，但是，有没有更好的方法呢？

正如我所说，我不是 Perl 程序员，所以我只是想在开始之前确保我走的是正确的道路......

Answer 1

您无需复制/存储任何其他数据即可执行此操作。

foreach my $irq (@irqs) {
    my $key = $irq->{label} || $irq->{irq};
    print $key, "=", $irq->{count} - $myhash{$key}, "; ";
}