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.

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

• Определить активный интерфейс,co6aka, 16:28 , 04-Апр-10
• Определить активный интерфейс,Skif, 00:21 , 05-Апр-10

#route | awk '/^default/ && /UG/ {print $8}'
Или
#route -n | awk '$1=="0.0.0.0" && $3=="0.0.0.0" && $4=="UG" {print $8}'

>[оверквотинг удален]
>};
>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 - очень полезные знания. Особенно для сисадмина.