#!/usr/bin/perl $INPUTFILE="$ARGV[0]/sum"; $OUTPUTFILE="$ARGV[0]/index.html"; if (-e "$INPUTFILE") { # print "Create html for $INPUTFILE\n"; open (IN, "$INPUTFILE"); foreach () { $string=$_; if ($string=~/^in/) { $string=~s/^in_//; chop $string; ($ip, $bytes) = $string =~ /(\w+) (\w+)/; $trafic_in[$ip] = $bytes; } if ($string=~/^out/) { $string=~s/^out_//; chop $string; ($ip, $bytes) = $string =~ /(\w+) (\w+)/; $trafic_out[$ip] = $bytes; } } close (IN); open(OUT, ">$OUTPUTFILE"); print OUT "\n"; opendir(DIR, $ARGV[0]); while ($directory = readdir(DIR)){ if (-d "$ARGV[0]/$directory" and not $directory=~/\./) { print OUT "$directory\n"; } } print OUT "
\n\n"; print OUT "\n"; for ($ip = 1; $ip <=254; $ip++) { if ($trafic_in[$ip] or $trafic_out[$ip]) { print OUT "\n"; } $trafic_in_all=$trafic_in_all+$trafic_in[$ip]; $trafic_out_all=$trafic_out_all+$trafic_out[$ip]; } print OUT "

IP	IN	OUT
192.168.0.$ip	$trafic_in[$ip]	$trafic_out[$ip]

\n"; print OUT "IN: $trafic_in_all
OUT: $trafic_out_all"; close (OUT); } else { print "Неизчего создать html"; }