Re: Counting how many times item is occurring and adding the total from array help!

[CountZero]

Is this doing what you want?

use Modern::Perl;
use Data::Dump qw/dump/;

my %seen;
my %accounts;
my $g_total;

while (<DATA>) {
    next if $seen{$_}++;
    my ( $account_number, $amount ) = ( split /,/ )[ 2, 7 ];
    @{ $accounts{$account_number} }[0] += $amount;
    @{ $accounts{$account_number} }[1]++;
    $g_total += $amount;
}
say dump( \%accounts );
say "Grand Total = $g_total";

__DATA__
Joe Smith,12345678,44552,02/11/2011,no email, MA,USA,900.00,updated
Joe Smith,12345678,44552,02/11/2011,no email, MA,USA,900.00,updated
Joe Smith,12345678,44552,02/11/2011,no email, MA,USA,900.00,updated
Cindy Abbot,122233678,01122,08/09/2012,[e-mail], CA,EUR,-120.00,up
+dated
Mary Lou,33456678,44552,01/11/2011,no email, MA,USA,400.00,updated
SMith Doo,12345678,44592,02/11/2012,[e-mail], MA,USA,100.00,updat
+ed
Mario Att,00056789,022345,03/10/2010,no email, MA,USA,40.00,outdated
Mario Att,00056789,022345,03/10/2010,no email, MA,USA,40.00,outdated
Mario Att,00056789,022345,03/10/2010,[e-mail], MA,USA,40.00,outdated
Maria Smither,12345678,00051,02/11/2011,no email, MA,USA,750.00,outdat
+ed
Dan Smither,12345678,00051,02/11/2011,no email, MA,USA,250.00,outdated

Output:

{
  "00051"  => [1000, 2],
  "01122"  => [-120, 1],
  "022345" => [80, 2],
  "44552"  => [1300, 2],
  "44592"  => [100, 1],
}
Grand Total = 2360

The hash %accounts hold the accountnumber as key and each value is a reference to an array containing the total for that account and the number of times the accountnumber was found in the data.

[Anonymous Monk]

This is what I am tryin to get at the end:

Account 44552 - ccurring 1 time(s) - Total = 900.00
Account 00051O - ccurring 2 time(s) - Total = 1,000.00
Account 01122 - ccurring 2 time(s) - Total = -120.00
...

Grand Total = 1,780.00

Thanks for helping!

[CountZero]

Easy! replace the last two lines by:

say "Account $_ - occurring $accounts{$_}->[1] time(s) - Total = $acco
+unts{$_}->[0]" for keys %accounts;
say "Grand Total = $g_total";

[Anonymous Monk]

Great help, thanks a lot!!!! On my way to code some more now!!!