#!/usr/bin/env perl -l
use strict;
use warnings;
use Time::Local;
use JSON;
use Time::Piece;
use Math::Round;
use File::Read; 
use Text::Table;

my $DestIP="192.168.127.111";
my $jsonc = read_file ('C:\Documents and Settings\SonicWALL User\My Documents\Scripts\logs\json.txt');
my $data = decode_json join '' => map { chomp; $_ } ($jsonc);
#my $data = decode_json $jsonc;


my $tb = Text::Table->new(
        "Date", "Start Time", "End Time", "Time Taken" , "Egress: Conveyed", "Egress : Sent" , "Ingress: Conveyed" , "Ingress: Sent");
   
 for (@{$data->{aaData}}) {
 my $difftime=(@$_[1] - @$_[0]); 
 my $destip=@$_[6];
 my @egress=split(',', @$_[8]);
 my @ingress=split(',', @$_[9]);
 my $econveyed=$egress[0]/1000000;
 my $esent=$egress[1]/1000000;
 my $iconveyed=$ingress[0]/1000;
 my $isent=$ingress[1]/1000;
    my $startTime=scalar(localtime(@$_[0]));
 my $endTime=scalar(localtime(@$_[1]));
 
 
 #Filter only for required traffic and eliminate any traffic less than 1MB
 
 if ( $destip eq $DestIP && $egress[0]>1000000)
 {
 #print "@$_";
 
 my $date = $startTime->mdy; 
 my $stime1 = $startTime->hms;
 my $etime1 =$endTime->hms;
 $tb->load(
  [ $date, $stime1 , $etime1 ,convert_time($difftime) , nearest(.01,$econveyed) , nearest(.01,$esent), $iconveyed , $isent ],
    );
    }
 
}
print $tb;
 


##</code><code>##

{"DisplayRecords":"12","Records":"12","sColumns":"startTime,endTime,
remoteNode,srcIP,srcPort,destIP,destPort,egress,ingress","aaData":[["1
+375976271"
,"1375976430","LAN","D0:05:FE","172.20.30.2",1093,"172.20.28.2",1330,"
+1034,348"]]}
{"DisplayRecords":"12","Records":"12","sColumns":"startTime,endTime,
remoteNode,srcIP,srcPort,destIP,destPort,egress,ingress","aaData":[["1
+375976271"
,"1375976430","LAN","D0:05:FE","172.20.30.2",1093,"172.20.28.2",1330,"
+1034,348"]]}
.... and so on