форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Контроль perl system()"
Сообщение от melco (ok) on 20-Апр-05, 18:55  (MSK)
Подскажите пожалуйста, как мне анализировать, что идет на стандартный вывод от system 'telnet' 'cisco' и посылать туда чтото? Очень благодарен за помощь! Леоненко Дмитрий
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Контроль perl system()"
Сообщение от madskul on 20-Апр-05, 22:14  (MSK)
>Подскажите пожалуйста, как мне анализировать, что идет на стандартный вывод от >system 'telnet' 'cisco' >и посылать туда чтото? > >Очень благодарен за помощь! >Леоненко Дмитрий system возвращает код возврата вызванной команды. Для получения вывода надо использовать @a=`command`; А еще лучше, правильней так сказать: open(F,"command|"); и работать с дескриптором.
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Контроль perl system()"
	Сообщение от melco (??) on 21-Апр-05, 09:25  (MSK)
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Контроль perl system()"
	Сообщение от melco (??) on 21-Апр-05, 09:45  (MSK)
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

4. "Контроль perl system()"
Сообщение от melco (??) on 21-Апр-05, 09:46  (MSK)
Хм, а подскажите как читать всё до последнего символа... т.к. это open (TELNET, "$telnet|") || die "ERROR: Can not run telnet"; while(sysread(TELNET,$byte,1) == 1){print STDOUT $byte;} отдает мне вывод только построчно.... после перевода строки... а мне нада всё до последнего
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "Контроль perl system()"
	Сообщение от madskull (ok) on 21-Апр-05, 10:11  (MSK)
	>Хм, а подскажите как читать всё до последнего символа... т.к. это > >open (TELNET, "$telnet|") || die "ERROR: Can not run telnet"; >while(sysread(TELNET,$byte,1) == 1){print STDOUT $byte;} > >отдает мне вывод только построчно.... после перевода строки... а мне нада всё >до последнего странно, у меня отрабатывает как надо, читает посимвольно. Или, может, имеется ввиду, что пока телнет не закончит строку, скрипт не начинает считывать? Так это уже от телнета зависит, точнее даже от стандартных функций ввода/вывода. ИМХО.
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "Контроль perl system()"
	Сообщение от melco (??) on 21-Апр-05, 11:30  (MSK)
	>>Хм, а подскажите как читать всё до последнего символа... т.к. это >> >>open (TELNET, "$telnet|") || die "ERROR: Can not run telnet"; >>while(sysread(TELNET,$byte,1) == 1){print STDOUT $byte;} >> >>отдает мне вывод только построчно.... после перевода строки... а мне нада всё >>до последнего >странно, у меня отрабатывает как надо, читает посимвольно. >Или, может, имеется ввиду, что пока телнет не закончит строку, скрипт не >начинает считывать? >Так это уже от телнета зависит, точнее даже от стандартных функций ввода/вывода. > >ИМХО. Так вот я до этого использовал IO::Socket::INET Там тоже приходилось sysread читать посимвольно и та же лажа... Там где строка уже перевелась - оно отрабатывает, а где оно ждет вывода - оно не отдает. стандартный telnet отрабатывает прекрасно...
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.