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

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

Форум программистов > Perl: Общие вопросы > com-порт

Автор: Bulat 18.1.2013, 20:29

есть желание опросить контроллер по com-порту.

суть в том, что бинарный пакет отправить у меня получается, а вот ответ получить не могу, но пакет уходит верный и контроллер 100% отвечает на него.

Вот, что у меня есть на данный момент:

Код


#!/usr/bin/perl -w
use strict;

my $foo = pack("C8", 0x01, 0x03, 0x00, 0x63, 0x00, 0x03, 0xF5, 0xD5);

use Fcntl;

my $Buffer;

sysopen(HANDLE, "\.\\COM2 ",  O_RDWR|O_EXCL|O_CREAT, 0755) || die "sysopen  $!";
my $oldfh = select(HANDLE);
$| = 1;
select($oldfh);
print HANDLE $foo;
sysread(HANDLE, $Buffer, 2048);
print $Buffer, "\n";

Что я делаю не так или чего не хватает?? smile

Автор: Pfailed 19.1.2013, 08:56

До строки "print $Buffer, "\n";" программа доходит? Что она печатает?

Автор: Bulat 19.1.2013, 12:33

программа доходит до строки

Код


sysread(HANDLE, $Buffer, 2048);

и зависает в ожидании ответа. Симулятор устройства обратно пакет отправляет.

По TCP это выглядит так:

Код


#/usr/bin/perl

use strict;

use Socket;

my $IPAddr = inet_aton('localhost');
socket SH, AF_INET, SOCK_STREAM, 0;
connect SH, sockaddr_in(6000, $IPAddr) || die $!;

#код команды модбас = 1
#my $foo = pack("C12", 0x00, 0x01, 0x00, 0x00, 0x00, 0x06, 0x01, 0x01, 0x00, 0x63, 0x00, 0x04);

#код команды модбас = 3
my $foo = pack("C12", 0x00, 0x02, 0x00, 0x00, 0x00, 0x06, 0x01, 0x03, 0x00, 0x63, 0x00, 0x03);

send(SH, $foo, 0) || die $!;

my $Buffer;
recv(SH, $Buffer, 1024, 0) || die $!;

print "$Buffer\n";

print unpack("C15", $Buffer), "\n";

shutdown SH, 2;

и результат -

Код


>test.pl
 ☻      ☺♥♠
020009136000000

Вот нужно еще и по ком-порту

Автор: Bulat 19.1.2013, 13:06

Вообще со стороны это выглядит так, что контроллер пакет в ответ отправляет, а вот sysread его получить не может. Но это на первый взгляд, может собака где-то глубже зарыта

Автор: Pfailed 19.1.2013, 15:21

Думаю нужно поиграться с 3-м параметром sysopen. Кстати, с обычным open и параметром "+>" или "+<" не получается?

Автор: Bulat 20.1.2013, 15:38

Цитата(Pfailed @ 19.1.2013, 15:21

)

Думаю нужно поиграться с 3-м параметром sysopen.

Ты прав.

Если вместо

Код


sysopen(HANDLE, "\.\\COM2 ",  O_RDWR|O_EXCL|O_CREAT, 0755) || die "sysopen  $!";

написать

Код


sysopen(HANDLE, "\.\\COM2 ",  O_RDWR, 0755) || die "sysopen  $!";

То вроде бы все работает как и ожидалось.