Здравствуйте.
Есть у меня perl скрипт. Я в perl не алё. Что он делает, он смотрит сколько подключений на порту и сверяет со списком, если больше чем в списке то шлет письмо. В списке все выглядит так
7011 10 mail@mail.ru Одна строка - один порт порт количество почта
Так он узнает сколько куда и кого подключено
# Команда для получения данных о соединениях и портах
$get_data_cmd = 'netstat -n';
проблема в том, что раньше порты не дублировались, т .е.
tcp 0 0 16.9.6.6:7011 2.5.1.8:52801 ESTABLISHED
tcp 0 0 16.9.6.6:7011 2.5.1.8:52802 ESTABLISHED
если в списке был порт 7011 и, например, информировать при 1 подключении, то все работало, теперь пришлось на ip в 5 столбце тоже использовать порт 7011, получается вот что
tcp 0 0 16.9.6.6:7011 7.158.2.42:57175 ESTABLISHED
tcp 0 0 16.9.6.6:56058 2.5.1.8:7011 ESTABLISHED
tcp 0 0 16.9.6.6:37908 2.5.1.8:7011 ESTABLISHED
tcp 0 0 16.9.6.6:7011 7.70.21.8:49727 ESTABLISHED
и для скрипта это уже 4 соединения, а это ложные срабатывания.
Нужно «объяснить» скрипту что порты считаем только в 4 столбце. Пробовал вставлять всякие awk, но все ломается.
Если кто захочет помочь, напишите в личку, обсудим гонорар. Спасибо.
