#!/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.csv';
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 eq "On" && ($col6 =~ /^\Q97517\E/ || $col6 =~ /^\Q97516\E/))
    {
$hash{"$col2"} += $col8;
#$hash{"$col2"} += $col6;
    }
elsif ($sdate >= $col3 && $edate <= $col3 && $sinput eq $col5 && $chcat eq "Off" && $col6 =~ /^\Q97577\E/)
{
$hash{"$col2"} += $col8;
}
elsif ($sdate >= $col3 && $edate <= $col3 && $sinput eq "ALL" &&  $chcat eq "ALL")
{
$hash{"$col2"} += $col8;
}
}
foreach my $key (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
        printf $fh "%s %1f\n", $key, $hash{$key};