1 #!/usr/bin/perl
 2 
 3 use strict;
 4
 5 sub to_mb{
 6 	use POSIX;
 7 	return ceil($_[0]/(1024*1024));
 8 }
 9 
10 # basic settings
11 my $delimiter = "\t";
12 my $fileprefix = "eth0";
13 my $path = ".";
14 if(defined($ARGV[2])) { $path = $ARGV[2]; }
15 
16 # parse input
17 my $start = $ARGV[0];
18 my $stop = $ARGV[1];
19 if ( ($start !~ /^[0-9]{8}$/) || ($stop !~ /^[0-9]{8}$/) || ($stop <= $start) ) { 
20 	print "Script for calculating network traffic\n";
21 	print "USAGE: stat.pl <from> <to> [<path>]\n";
22 	print "       <from> and <to> should be 8 digit number (YYYYMMDD)\n";
23 	print "       <path> path of the directory with logfiles\n";
24 	exit;
25 }
26 
27 my (%stats_tx, %stats_rx, $total_tx, $total_rx);
28 
29 # find log files matching given criteria
30 opendir(DIR, $path) || die "can't opendir $path: $!";
31 my @files = grep { /^eth0/ && -f "$path/$_" } readdir(DIR);
32 closedir DIR;
33 
34 foreach my $filename (@files){ 
35 	(my $if, my $date) = split(/\./, $filename);
36 	if( ($date >= $start) && ($date <= $stop)){ 
37 		# found, ananlyze log
38 		open(LOG, "$path/$filename");
39 			while(my $rec = <LOG>){
40 				(my $time, my $diff, my $ip, my $tx, my $txdata, my $rx, my $rxdata) = split(/ +/, $rec);
41 				if($time =~ /^[0-9]+$/){
42 					$stats_tx{$ip} += $txdata;
43 					$stats_rx{$ip} += $rxdata;
44 					$total_tx += $txdata;
45 					$total_rx += $rxdata;
46 				}
47 			}
48 		close(LOG);
49 	}
50 }
51 
52 # print results
53 foreach my $ip (keys %stats_tx){
54 	print "$ip$delimiter".(to_mb($stats_tx{$ip}))."$delimiter".(to_mb($stats_rx{$ip}))."$delimiter\n";
55 }
56 print "255.255.255.255$delimiter".(to_mb($total_tx))."$delimiter".(to_mb($total_rx))."$delimiter\n";