perl - 遍历 Perl 集合，计算新值

Question

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

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

在程序的其他地方编辑@irqs的某种集合（我不是 Perl 程序员）在哪里push。

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

而不是$_->{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}, "; ";
}