urbs33 has asked for the wisdom of the Perl Monks concerning the following question:

Wisest Monks, I have a fun task that I am hoping that you can help me with. I work in a large backup environment. Suppose I have 8 master servers (environments) each with 3 or 4 media servers and a total jobs count of tens of thousands. I have a script that generates a report and ftps it out for billing and emails a copy for our records. I'd like to summarize the report in the body of the email by looping through the report and pushing the master server, media server and size of each job into a hash, then loop through the hash to add the sizes of each individual media server's jobs together, and provide a total sum of each environment overall. I'm kind of stumped and just trying to read up on hashes and math. Any help would be appreciated.

Replies are listed 'Best First'.
Re: Hash Math
by tobyink (Canon) on Mar 11, 2013 at 14:41 UTC

    Something like this?

    use 5.010;
use strict;
use warnings;

use List::Util 'sum';

my %messages;

$messages{one} = {
    from => "Alice",
    to   => "Bob",
    size => 1000,
};
$messages{two} = {
    from => "Bob",
    to   => "Carol",
    size => 200,
};
$messages{three} = {
    from => "Carol",
    to   => "Dave",
    size => 30,
};
$messages{four} = {
    from => "Dave",
    to   => "Eve",
    size => 4,
};

say sum map $_->{size}, values %messages;

    [download]
    package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
[reply]
[d/l]
Re: Hash Math
by toolic (Bishop) on Mar 11, 2013 at 14:29 UTC
[reply]
Re: Hash Math
by locked_user sundialsvc4 (Abbot) on Mar 11, 2013 at 15:54 UTC

    You don’t talk about underlying databases but I feel sure that there must be one, in which case could you not use an SQL query with GROUP BY to simply obtain the statistics directly?

Back to Seekers of Perl Wisdom