perl - 整理公共值并在哈希中添加整数

Question

我正在编写一个脚本来解析度量端口并将度量名称和值输出到哈希，然后读取哈希并将度量名称和值传递给 gmetric。但是，由于我运行同一进程的多个实例，因此我在哈希的一个字段中有重复的名称：

[MacOSX_Leopard,2
 Win32_Windows,5
 MacOSX,2
 Win32_Windows,5]

我想要做的是能够针对所涉及的每个指标整理并将这些值加起来为一个总数。在 perl 中如何/最好的方法是什么？

Answer 1

如果我理解正确，这就是你的意思：

#!/usr/bin/perl

$value{"MacOSX_Leopard"} += 5;
$value{"MacOSX_Leopard"} += 3;
$value{"MacOSX"} += 3;
$value{"Windows"} += 2;

foreach $key (keys %value) {
   print "$key\t",$value{$key},"\n";
}

结果：

MacOSX  3
Windows 2
MacOSX_Leopard  8