#!/usr/bin/perl -w
use strict;
use warnings;
use Socket;

# Сеть
my $net = {
                'addr'  => "192.168.хх.0",
                'mask'  => "24",
                };

# Проверка находится ли ip в сети
sub CheckIpInNet($$)
        {
        my ($net, $addr) = @_;
        my $result = undef;

        # Считаем сеть
        my $ip_address_binary = inet_aton( $net->{'addr'} );
        my $netmask_binary = ~pack("N", (2**(32-$net->{'mask'}))-1);
        my $network_address = inet_ntoa( $ip_address_binary & $netmask_binary );
        # Первый и последний адреса сети
        my $first = inet_ntoa( pack( 'N', unpack('N', $ip_address_binary & $netmask_binary ) + 1 ));
        my $last = inet_ntoa( pack( 'N', unpack('N', $ip_address_binary | ~$netmask_binary ) - 1 ));
        # Приводим адреса в int
        my $int_first = unpack 'N' => pack 'C4' => split /\./ => $first;
        my $int_addr = unpack 'N' => pack 'C4' => split /\./ => $addr;
        my $int_last = unpack 'N' => pack 'C4' => split /\./ => $last;
        # Проверяем адреса
        if(($int_first <= $int_addr) and ($int_addr <= $int_last))
                {$result = 1;}

        return $result;
        }

my %summ = ();
open(FL, "data.csv") or die($!."\n");
while(<FL>)
        {
        chomp();
        # Время;С адреса;С порта;На адрес;На порт;Байт;С интерфейса;На интерфейс
        my @row = split(/;/, $_);
        # Пропускаем строки, где нет числа в трафике
        if((!defined($row[5])) or ($row[5] !~ m/^\d+$/))
                {next;}
        my %info = (
                        'src'   => $row[1],
                        'dst'   => $row[3],
                        'traf'  => $row[5],
                        );
        # Если ip источника/назначния есть в сети, добавим информацию о трафике
        if(&CheckIpInNet($net, $info{'src'}))
                {$summ{$info{'src'}}->{'out'} += $info{'traf'};}
        elsif(&CheckIpInNet($net, $info{'dst'}))
                {$summ{$info{'dst'}}->{'in'} += $info{'traf'};}
        }
close(FL) or die($!."\n");
# Сортировка и вывод
foreach my $ip (reverse sort {$summ{$a}->{'in'} <=> $summ{$b}->{'in'}} keys %summ)
        {print $ip."\t".$summ{$ip}->{'in'}."\t".$summ{$ip}->{'out'}."\n";}


1;