https://www.opennet.ru/openforum/vsluhforumID9/8674.html Hi,All.<br>Есть система Linux Debian.<br>Вывод команды route<br>Kernel IP routing table<br>Destination Gateway Genmask Flags Metric Ref Use Iface<br>X66.bbn00 * 255.255.255.255 UH 0 0 0 ppp0<br>172.16.48.0 * 255.255.255.240 U 0 0 0 eth3<br>192.168.3.0 * 255.255.255.0 U 0 0 0 eth0<br>192.168.1.0 * 255.255.255.0 U 0 0 0 eth2<br>default X66.bbn00 0.0.0.0 UG 0 0 0 ppp0<br><br>Нужно с помощью скрипта perl определить имя интерфейса, через который в определенный момент времени идут пакеты по умолчанию, в данном случае это ppp0.<br>Может быть другой интерфейс. Необходимо для переключения между каналами.<br>В инете нашел, но код не работает. Скрипт должен вернуть имя активного интерфейса, т.е. того у которого в таблице маршрутизации есть default.<br>Вот часть кода<br><br># Определение работающего канала<br>my $activeiface='not';<br>open(A,"route&#124 https://www.opennet.ru/openforum/vsluhforumID9/8674.html#3 Sun, 04 Apr 2010 13:01:35 GMT &gt;поправте <br>&gt;---while () { <br>&gt;+++while (&lt;A&gt;) {<br><br>Огромное человеческое спасибо.<br>Все заработало.<br> https://www.opennet.ru/openforum/vsluhforumID9/8674.html#2 Sun, 04 Apr 2010 12:35:14 GMT &gt;[оверквотинг удален]<br>&gt;}; <br>&gt;close(A); <br>&gt;<br>&gt;Получаем ошибку <br>&gt;Use of uninitialized value $_ in pattern match (m//) at ./inet line <br>&gt;41. <br>&gt;<br>&gt;Я понимаю что где-то ошибка, но в перле не силен. <br>&gt;Дай-те пож-та работоспособный код, или подправьте что есть. <br>&gt;Буду очень признателен. <br><br>читать до просветвления man ip<br> https://www.opennet.ru/openforum/vsluhforumID9/8674.html#1 Sun, 04 Apr 2010 08:47:20 GMT поправте<br>---while () {<br>+++while (&lt;A&gt;) {<br>