Re: Grouping By A Column

[roboticus]

rocky13

You're on the right track. You do grouping with a hash. Each time you get a row, create the entry if it doesn't exist, or add in the data:

my ($col1, $col2, $col3) = generate_data();
if (! defined $hash{$col1}) {
    $hash{$col1} = [ 0, 0 ]
}
$hash{$col1}[0] += $col2;
$hash{$col1}[1] += $col3;

...roboticus

When your only tool is a hammer, all problems look like your thumb.

[JavaFan]

Due to autovivification, you can half the number of lines in the snippet:

my ($col1, $col2, $col3) = generate_data();
$hash{$col1}[0] += $col2;
$hash{$col1}[1] += $col3;

will do.

[rocky13]

That clears up a lot of things. One more question. Can you read an excel file the same way you read a .txt file?

[GrandFather]

In a word: 'No'. But there are many Excel related modules in CPAN. A good starting point is probably Spreadsheet::ParseExcel.