сопоставление общих значений и добавление целых чисел в хэш

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