цикл через сложную хэш-структуру - PullRequest
Новая
       10

цикл через сложную хэш-структуру

2 голосов
/ 23 декабря 2011

У меня есть следующая хешированная структура $chainStorage{$R1}{$S1}{$C1} = \@A1

$chainStorage = {
        'ACB' => {
               'E' => {'06' => [100, 200, 95]}
               'B' => {'23' => [20, 1000, 05, 30]}
        },
        'AFG' => {
               'C' => { '24' => [18, 23, 2300, 3456]}
        },
        'HJK' => {
               'A' => {'12' => [24, 25, 3200, 5668]}
               'D' => {'15' => [168]}
        }
};

Например, ACB соответствует двум массивам ， [100, 200, 95] и [20, 1000, 05, 30], а E соответствует только [100, 200, 95].

Сейчас мне нужно добавить все элементы в массиве, соответствующие ключу первого уровня, например, ACB, вместе.

Другими словами, в другой хеш-структуре, Я хочу, чтобы ACB соответствовал 

100+200+95 + 20+1000+05+30 = 1450

Как реализовать эту функциональность поверх $chainStorage?

Ответы [ 2 ]

7 голосов
/ 23 декабря 2011

Вы можете сделать что-то вроде: 

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump qw(dump);

my $chainStorage = {
        'ACB' => {
               'E' => {'06' => [100, 200, 95]},
               'B' => {'23' => [20, 1000, 05, 30]}
        },
        'AFG' => {
               'C' => { '24' => [18, 23, 2300, 3456]}
        },
        'HJK' => {
               'A' => {'12' => [24, 25, 3200, 5668]},
               'D' => {'15' => [168]}
        }
}; 


while (my($k,$v) = each %$chainStorage) {
    my $sum = 0;
    while (my($k2,$v2) = each%$v) {
        while (my($k3,$v3) = each %$v2) {
            foreach (@$v3) {
                $sum += $_;
            }
        }
    }
    $chainStorage->{$k} = $sum;
}
dump$chainStorage;

вывод: 

{ ACB => 1450, AFG => 5797, HJK => 9085 }
0 голосов
/ 24 декабря 2011

Вы можете написать стандартную хвостовую рекурсивную fold (+) -подобную подпрограмму, которая обеспечивает широкий спуск произвольной иерархии структур данных perl, суммируя все встреченные числовые скаляры.Пример: 

use Switch;

sub deep_fold_sum {
        my $v=0;  my @l=();
        while (shift) {  switch (ref) {
                case '' { $v += $_; }
                case 'SCALAR' { $v += $$_; }
                case 'ARRAY' { push(@l, @$_ ); }
                case 'HASH' { push(@l, values %$_ ); }
        }  }
        return $v unless @l;
        return deep_fold_sum($v, @l);
}

Я не проверял этот код, но любые ошибки должны легко исправляться.Если вам нужна правильная хвостовая рекурсия, вам, возможно, придется заменить заключительную строку возврата на: 

        @_ = ($v, @l); 
        goto &deep_fold_sum;

Наконец, вы можете tie объект, который использует эту функцию для динамического предоставления желаемого интерфейса, похожего на хеш.

...