I have to do a group by and sum two columns, I am able to do only for two columns. For the below code, I got the help from Monks only. I need another help to group by and sum two columns. I have grouped by using col2, and sum col6 and col7

• Input file
• col1,col2,col3,col4,col4,col5,col6,col7
• 1234,GP,20170715,0,V,97517,24,0.6
• 5678,Pack,20170715,0,V,97516,88,1.8
• 1234,GP,20170715,0,V,97517,22,0.6
• 5678,Pack,20170715,0,V,97517,183,3.9
• 1234,PRS,20170715,0,S,97517,261,5.4
• 5678,PRS,20170715,0,M,97517,36,0.9

• output should be:
• GP,46,1.2
• Pack,271,5.7
• PRS,297,6.3

below is the code I have tried.

#!/usr/bin/perl
#use strict;
#use warnings;
use feature 'say';
#my %hash;
print "Please input the Service Name(V/M/S/ALL):";
my $sinput = <STDIN>;
chomp $sinput;
print "Please input On/Off/ALL:";
my $chcat= <STDIN>;
chomp $chcat;
print "Start Date:";
chomp($sdate=<>);
print "End Date:";
chomp($edate=<>);
$file = '/var/tmp/CA_scripts/1_onnet_offnet/Onnet_offnet_repository.cs
+v';
open (my $fh, '>>', 'C_n_r_'.$sinput.'.csv');
unless(open FILE, $file)
{
die "\nUnable to open the file\n";
}
while (my $line = <FILE>) {
    my ($col1,$col2,$col3,$col4,$col5,$col6,$col7,$col8) = split /,/, 
+$line;
    #my $col21 = $class;
if ($sdate >= $col3 && $edate <= $col3 && $sinput eq $col5 && $chcat e
+q "On" && ($col6 =~ /^\Q97517\E/ || $col6 =~ /^\Q97516\E/))
    {
$hash{"$col2"} += $col8;
#$hash{"$col2"} += $col6;
    }
elsif ($sdate >= $col3 && $edate <= $col3 && $sinput eq $col5 && $chca
+t eq "Off" && $col6 =~ /^\Q97577\E/)
{
$hash{"$col2"} += $col8;
}
elsif ($sdate >= $col3 && $edate <= $col3 && $sinput eq "ALL" &&  $chc
+at eq "ALL")
{
$hash{"$col2"} += $col8;
}
}
foreach my $key (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
        printf $fh "%s %1f\n", $key, $hash{$key};
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.