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