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