Разработка динамических сайтов
SEO услуги
Управление контекстной рекламой

Вход на хостинг

Имя пользователя:*

Пароль пользователя:*

IT-новости

20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла

Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......

подробнее

30.07.2015 Ищем уникальный контент для сайта

Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......

подробнее

11.05.2015 Распространённые ошибки разработчиков сайтов

Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......

подробнее

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;}

 }


Предыдущая страницаОглавлениеСледующая страница
 
[001] [002] [003] [004] [005] [006] [007] [008] [009] [010] [011] [012] [013] [014] [015] [016] [017] [018] [019] [020]
[021] [022] [023] [024] [025] [026] [027] [028] [029] [030] [031] [032] [033] [034] [035] [036] [037] [038] [039] [040]
[041] [042] [043] [044] [045] [046] [047] [048] [049] [050] [051] [052] [053] [054] [055] [056] [057] [058] [059] [060]
[061] [062] [063] [064] [065] [066] [067] [068] [069] [070] [071] [072] [073] [074] [075] [076] [077] [078] [079] [080]
[081] [082] [083] [084] [085] [086] [087] [088] [089] [090] [091] [092] [093] [094] [095] [096] [097] [098] [099] [100]
[101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140]
[141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151] [152] [153] [154] [155]

+7 (831) 413-63-27
ООО Дельта-Технология ©2007 - 2016 год
Нижний Новгород, ул. Дальняя, 17А.
Rambler's Top100