Привет всем! Народ, мне поставили такую задачу:
На удалённом компьютере с ОС Linux к com-порту подключили датчик открытия (закрытия) двери. Мне надо как-нибудь с сервера подключиться к удаленному компу и получить значение с датчика. Как это сделать?

Мой вариант:
Надо написать прогу на С/С++, которая бы работала на удаленном компе и считывала параметры датчика, а потом, может с помощью CGI скрипта подключаться и забирать инфу...

Подскажите свои варианты, может более правильные???

а ещё примерчики, если есть...

Заранее спасибо!

study - а ты уверен, что этот CGI должен быть написан на Perl, если ты пишешь программу, которая будет считывать значения счётчика на C/C++, то может быть и CGI программа должна быть написана на C/C++? А если всё же нужен Perl, попробуй воспользоваться модулем LWP, Socket, IO::Socket.

я бы сделал следующим образом и все на перле тк быстрее бы наверное

вот тебе самый наипростейший пример сревера(без всяких форков и тп)

Код

#!/usr/bin/perl -w use strict; use IO::Socket; my $sock = new IO::Socket::INET (PeerAddr => 'localhost',                                 PeerPort => 666,                                 Proto    => 'tcp',                                 Listen   => 5); die "$!" unless $sock; while (my $sock = $sock->accept()) {   print $sock ReadComPort(); } sub ReadComPort {   open (COM, "</dev/cua0");   #ченить читаешь из ком порта   close(COM); }

ну а цепляться чем угодно можешь: телнетом или также написать ченить можно

PS пример не проверял, так что может быть есть ошибки главное идея что бы была понятна

Это сообщение отредактировал(а) chaos - 6.7.2005, 07:00

Спасибо, начальство пока не определилось, что хочет, так что пака подожду.

там надо вешать демона и писать логи открытия закрытия иначе нет смысла вообще в таком софте. А демон на перле - изврат.

Цитата(Secandr @ 8.7.2005, 10:09)

А демон на перле - изврат.

Но можно ведь

Цитата(Secandr @ 8.7.2005, 10:09)

А демон на перле - изврат.

смотря какие демоны, если как ты говоришь писать логи то ни чего нет извращенного скрипт в ~20 строчек

вот пример(без всяких фишек)

Код

#!/usr/bin/perl -w use strict; exit if (fork); #что то делаем

Это сообщение отредактировал(а) chaos - 8.7.2005, 11:22

а можно этот код под виндой запустить

Код

#!/usr/bin/perl -w use strict; use IO::Socket; my $sock = new IO::Socket::INET (PeerAddr => 'localhost',                                 PeerPort => 666,                                 Proto    => 'tcp',                                 Listen   => 5); die "$!" unless $sock; while (my $sock = $sock->accept()) {   print $sock ReadComPort(); } sub ReadComPort {   open (COM, "</dev/cua0");   #ченить читаешь из ком порта   close(COM); }

Цитата(study @ 2.8.2005, 15:55)

а можно этот код под виндой запустить Код #!/usr/bin/perl -w use strict; use IO::Socket; my $sock = new IO::Socket::INET (PeerAddr => 'localhost',                                 PeerPort => 666,                                 Proto    => 'tcp',                                 Listen   => 5); die "$!" unless $sock; while (my $sock = $sock->accept()) {   print $sock ReadComPort(); } sub ReadComPort {   open (COM, "</dev/cua0");   #ченить читаешь из ком порта   close(COM); }

а че нет можно, только если винда выполнит это
open (COM, "</dev/cua0");

chaos, не, винда это не хочет выполнять. Не знаешь, как в винде Com порт обозначаеться?

Цитата(study @ 3.8.2005, 09:17)

chaos, не, винда это не хочет выполнять. Не знаешь, как в винде Com порт обозначаеться?

\.\\COM1

Привет chaos, что-то у меня не получается с COM1 портом. Можешь простенький пример на С/С++ написать под винду... Чтобы послать что-то в порт и считать ответ...
Заранее спасибо!

study

Цитата(study @ 2.8.2005, 15:55)

а можно этот код под виндой запустить

Цитата(Secandr @ 8.7.2005, 10:09)

там надо вешать демона

Для работы выше указанного скрипта, необходимо чтобы был запущен демон на порте 666, который бы обрабатывал запросы клиентов.

да забыл сказать что если ты не админ в линухе порт с номером 666 не получится открыть вплоть до 1024, такчто лутше пользовать > 1024

Цитата

Привет chaos, что-то у меня не получается с COM1 портом. Можешь простенький пример на С/С++ написать под винду... Чтобы послать что-то в порт и считать ответ...

в этом разделе нет, тк нам модератор по рукам надает

хорошо, тогда в другом разделе напишу, все спасибо...

study интересно, чем тебя perl отпугнул?

Perl - супер, вчера вроде разобрался, мне надо было использовать stty, и в ней указывать нужную скорость
man stty