Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > мусор из ttyS (буферизация?)

Автор: astra2 22.9.2007, 02:45

Здравствуйте.
Нужно читать из

Код


$pn='/dev/ttyS1';
system "stty -F $pn cs8 -cstopb clocal raw 1200";
open S,"+<$pn" or die $!;
select S; $|=1; select STDOUT;
while($ch=getc(S))
{
  print $ch;
}
close S;

Запись для отладки идет из ttyS0, при передаче второй строки начинается массовое чтение мусора, которое лечится передачей 30-100 \n, явление прекращается и все работает нормально до следущего перезапуска ПЕРЕДАЮЩЕЙ проги. Эта прога нужна для опроса упса, который отвечает 16-ю байтами на один, запрос проходит нормально, но в ответе полно мусора :(
вероятно это связано с буферизацией? Подскажите кому не лень :)
Спасибо.
Коля.