Исходное сообщение
"Определить активный интерфейс" Отправлено Skif, 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 - очень полезные знания. Особенно для сисадмина.

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>[оверквотинг удален] >>}; >>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 - очень полезные > знания. Особенно для сисадмина.
	Введите код, изображенный на картинке: