The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Определить активный интерфейс"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Открытые системы на сервере (Маршрутизация, NAT / Linux)
Изначальное сообщение [ Отслеживать ]

"Определить активный интерфейс"  +/
Сообщение от psn1982 (??) on 03-Апр-10, 16:15 
Hi,All.
Есть система Linux Debian.
Вывод команды route
Kernel IP routing table
Destination     Gateway         Genmask         Flags Metric Ref    Use Iface
X66.bbn00       *                     255.255.255.255 UH    0      0        0 ppp0
172.16.48.0     *               255.255.255.240 U     0      0        0 eth3
192.168.3.0     *               255.255.255.0   U     0      0        0 eth0
192.168.1.0     *               255.255.255.0   U     0      0        0 eth2
default         X66.bbn00       0.0.0.0         UG    0      0        0 ppp0

Нужно с помощью скрипта perl определить имя интерфейса, через который в определенный момент времени идут пакеты по умолчанию, в данном случае это ppp0.
Может быть другой интерфейс. Необходимо для переключения между каналами.
В инете нашел, но код не работает. Скрипт должен вернуть имя активного интерфейса, т.е. того у которого в таблице маршрутизации есть default.
Вот часть кода

# Определение работающего канала
my $activeiface='not';
open(A,"route|");
while () {
next if (!($_ =~ m/default\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+)/));
$activeiface=$1;
};
close(A);

Получаем ошибку
Use of uninitialized value $_ in pattern match (m//) at ./inet line 41.

Я понимаю что где-то ошибка, но в перле не силен.
Дай-те пож-та работоспособный код, или подправьте что есть.
Буду очень признателен.

Высказать мнение | Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Определить активный интерфейс"  +/
Сообщение от co6aka (ok) on 04-Апр-10, 16:28 
#route | awk '/^default/ && /UG/ {print $8}'
Или
#route -n | awk '$1=="0.0.0.0" && $3=="0.0.0.0" && $4=="UG" {print $8}'
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

2. "Определить активный интерфейс"  +/
Сообщение от Skif (ok) on 05-Апр-10, 00:21 
>[оверквотинг удален]
>};
>close(A);
>
>Получаем ошибку
>Use of uninitialized value $_ in pattern match (m//) at ./inet line
>41.
>
>Я понимаю что где-то ошибка, но в перле не силен.
>Дай-те пож-та работоспособный код, или подправьте что есть.
>Буду очень признателен.

для perl например можно сделать так:
my $iface; # определяем перменную где храним имя интерфейса.
my $netstat= `netstat -rn`; # сохраняем вывод netstat в переменную

my @arrnet = split(/\n/,$netstat); # разбираем по строкам, каждый элемент массива - одна строка

foreach my $line (@arrnet){
# читаем каждую строку отдельно из массива
     my $defnet = '0.0.0.0'; # определяем какой маршрут ищем. в данном случае дефолтный.
     if ($line ~= m/\s$defnet/g) {
           # при наличии в строке подстроки $defnet с предстоящим ей любым символом пробела или табуляции выполняется последующий разбор
           $line ~= s/[\s\t]+/\t/g; # заменяем все повторяющиеся пробелы и табуляции одиночными символами табуляции
           my @arrstr = split(/\t/,$line); # бьём строку на элементы
           $iface = $arrstr[7]; # седьмой элемент массива соотвествует восьмой колонке вывода netstat, где содержиться инфа по интерфесу
          
     }
}

В действительности всё можно сделать короче, но я постарался вам объяснить код, а не просто кинуть регулярное выражение.
А вообще - не ленитесь, учите perl, awk, sed - очень полезные знания. Особенно для сисадмина.

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру