if ($str=~/all  --  *  *  0.0.0.0/0  $COMPUTER2_IP/) {

 if ($str=~/s*(d+)s+(d+)s(.*)/) {$COMPUTER2_in=$2;}

 }

# ... и так далее для других компьютеров...

} # for ($index=1; !eof(TRAFFIC); $index++)

close(TRAFFIC);

# Далее, из полученных значений мы создаём собственно html-отчёт. Для этого проверяем IP-адрес, с которого запрошен скрипт,

#  и выводим значения. Если это IP администратора ($COMPUTER1_IP), то выводим более сложный отчёт, со всеми пользователями.

#  Если это другой IP, то выводим для него свой отчёт – обычно это статистика только на этот адрес и всё.

if ($ip eq $COMPUTER1_IP) {

print " <table cellpadding="3" border="1"> ";

print "<tr align="center"><td>&nbsp;</td><td>output</td> <td>input</td></tr> ";

print "<tr><td>Computer1</td><td>",DOTS($COMPUTER1_out),"</td>";

print "<td>",DOTS($COMPUTER1_in),"</td>";

print "</tr> ";

print "<tr><td>Webserver 80 port</td><td>",DOTS($webserver_out),"</td>";

print "<td>",DOTS($webserver_in),"</td>";

print "</tr> ";

print "<tr><td>Computer2</td><td>",DOTS($COMPUTER2_out),"</td>";