迭代 Perl 集合，计算新值

Question

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

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

其中 @irqs 是某种集合（我不是 Perl 程序员），它被 push 到其他位置程序。

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

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

我确信我可以通过手动迭代 @irqs 并按下 $_->{label} 或 $_->{ irq} 到具有计算值的新集合上，但是，有更好的方法吗？

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

Answer 1

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

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