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

$str=<TRAFFIC>;

chomp($str);

###### Web server 80 port #########

if ($str=~/tcp  --  bridge0 * 0.0.0.0/0 $SERVER_IP tcp spts:1024:65535 dpt:80/) {

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

 }

if ($str=~/tcp  --  * bridge0 $SERVER_IP 0.0.0.0/0 tcp spt:80 dpts:1024:65535/) {

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

 }

# Во время отладки обратите внимание на число пробелов и  символы, записываемые через "": при не совпадении строчки

# с эталоном будет выведено пустое значение. Значения для срабатывания регулярных выражений следует брать из файла

# /temp/traffic-dump, иначе, если что-то не так с пробелами и пр, то у вас могут получиться пустые значения в переменных

# $webserver_in, $webserver_out $str=~/s*(d+)s+(d+)s(.*)/ должно передавать значение второго столбца в переменную $2

# (подробнее см. книгу А.Павлова [2] или любой справочник по Perl, раздел «Регулярные выражения»)

###### Computer1 #########

if ($str=~/all  --  *  *  $COMPUTER1_IP  0.0.0.0/0  MAC $COMPUTER1_MAC/) {

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

 }

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

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

 }

###### Computer2 #########

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

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

 }