我正在编写一个解析度量端口并将度量标准名称和值输出到散列的脚本,然后读取散列并将度量标准名称和值传递给gmetric。但是,由于我运行了同一进程的多个实例,因此我在哈希的一个字段中有重复的名称:
[MacOSX_Leopard,2
Win32_Windows,5
MacOSX,2
Win32_Windows,5]
我想要做的是能够整理并将这些值加到一个总计中,用于所涉及的每个指标。如何/在perl中执行此操作的最佳方式是什么?
答案 0 :(得分:0)
如果我理解正确,这就是你的意思:
#!/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