Re: Perl: как свернуть двумерный массив по одному полю, и просуммировать по второму?
Нагородил ты...для таких задач и придумали хэши.
#!/usr/bin/env perl
use strict;
my @a=(['str1',12], ['str2',15], ['str1',2]);
my %b;
for (@a){
$b {$_->[0]} += $_->[1];
}
# получаешь хэш %b - ключами которого являются
# str1,str2 и т.д. а значениями соответственно
# сумма значений одноименного ключа.
die $b{str1};