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