Re[2]: serial port
Hello Andrey,
Monday, July 19, 2004, 1:24:29 PM, you wrote:
>> ltb> есть необходимось постоянноо слушать com порт и писать все в файл,
[]
AC> Тогда уж лучше использовать Device::SerialPort, так как болучается немного
AC> более гибко, а то system("stty 9600 -echo parmrk cs8 -cstopb raw < $port");
AC> это конечно здорово, но ...
Человек просил простого - я ему кинул (почему этого не сделали Вы?), а
так же название того архива, откуда это было взято.
AC> use Device::SerialPort;
AC> my $Port = '/dev/ttyS0';
AC> my $Lock = '/var/lock/LCK..ttyS0';
Зачем там это, если кроме этого скрипта больше никто к этому порту не
полезет ?
[]
AC> Ну а дальше можно через $port->read(...) читать, в принципе можно сделать
AC> tie для STDIN и работать должно, но я не пробывал.
Так сделайте и отправьте человеку :) он Вам спасибо за это скажет
AC> Ну и выводить можно не в файл а в syslog, а уже на уровне syslog
AC> перенаправить это дело в любой файл да и по сети проще пересылать - ни каких
AC> переделок программы не будет.
:) в оригинале, человеку нужно все кидать в файл, Вы предлагаете это
делать через гм.. syslog (как в анекдоте про гинеколога,
переквалифицировавшегося в автомеханника, который через выхлопную
трубу двигатель перебирал)
P.S. "Зачем делать сложным, то что проще простого.." (с) Наутилус
--
Best regards,
Alexander 2:452/100
Reply to: