Perl и COM-порт

[Serg79]

Меня интересует такой вопрос, как с помощью Perl-а работать с COM-портом и возможно ли это.
Нужно настраивать параметры порта (скорость передачи, количество битов в передоваемом байте, количество стоп-битов и т.п.).

P.S. Хочется написать такую программку которая считывала бы файл конфигурации и по нему открывала порт с описанными в нем параметрами. Ну и конечно же отправляла и читала данные. На 'C' не хочется писать, потому что времени много займет. А для Perl-а я что то не нащел как работать с COM-портами.

[RXL]

Сложность в том, что в Unix, откуда родом Perl, последовательные порты доступны как файлы и работа с ними аналогична файлам, а в Win32 доступиться к ним сложнее.

Попробуй порыться на www.cpan.org

На С работать с послед.портом вовсе не сложно.

[Serg79]

На С работать с послед.портом вовсе не сложно.

С портом работать не сложно. Но требуется что то типа простенького интерпритатора с простыми конструкциями (if, for и т.п.). Вот реализация этого на 'C' и займет основное время. Поэтому и хотелось для данного случая использовать Perl.

RXL, может Вы знаете где есть пример простого модуля (типа "Hello world") для Perl, написанного на 'C'?

[Алексей++]

Serg79,

Но требуется что то типа простенького интерпритатора с простыми конструкциями (if, for и т.п.).

зачем такие сложности , можно сделать формат файла конфигурации вида

"имя_параметра_1"=значение_параметра\r\n
"имя_параметра_7"=значение_параметра\r\n
"имя_параметра_20"=значение_параметра\r\n
"0"\r\n

нужный параметр найти - элементарно, ищем в файле подстрочку
\"имя_параметра\" ,
после неё ищем символ =, а всё после = и до \r\n - считываем в параметр.

что то вроде этого

Код:

//поиск в тексте pFileArray значения запрошенного параметра quoted_name
bool GetParamDWORD(
  const char* quoted_name,
  DWORD& dwdRetValue,
  const char* pFileArray)
{
	int nameLen=strlen(quoted_name);

	const char* p=0;

	p=strstr(pFileArray,quoted_name);
	if(!p)return false;

	p=strstr(p+nameLen,"=");
	if(!p)return false;

	p++;

	dwdRetValue=atoi(p);

	return true;
}

quoted_name - это имя параметра, заключённое в кавычки
quoted_name = "\"параметр_1\"";

[Serg79]

С вводом параметров порта, проблем нет, конструкцию типа "BAUD = 4800;" разобрать не сложно.
Но дополнительно требуется разбирать записи такого типа: записать строку в порт, подождать 10 милисекунд, считать 2 байта, повторить 46 раз. Вот такая песня. Вот с этим можно довольно много времени потратить. Поэтому я и хочу написать модуль для Perl, который бы имел несколько элементарных функций: открыть порт, настроить порт, записать один символ, считать один символ. Я так думаю, по времени этот вариант получиться быстрее.

[Алексей++]

понятно. Типа скрипта своего нужно. В принципе - день работы, если хорошо посидеть над этим )
можно для упрощения вложенные циклы не делать

[Sla]

Serg79, а тебе обязательно на perlе?

[Serg79]

Serg79, а тебе обязательно на perlе?

А я кроме 'C', 'C++', 'Perl' и 'Shell-а' больше ничего не знаю. Ну не счетая ассемблера.

[Sla]

я думаю что должно быть типа такое (Tcl example)

Код:

open fileName
fconfigure -mode baud,parity,data,stop 

Добавлено через 10 минут и 49 секунд:
на perl (я его не знаю)
возможно будет выглядеть так

Код:

open (/dev/ttyS1)

а дальше работать как с файлом
вот немножко нарыл в гугле

Код:

my $port;
open ($port, "+</dev/ttyS0") || die "cannot open port S0: $!\n";

# you will have to tweak this depending on your comm protocol
# my guess is that raw might do what you want

system("stty 9600 raw < /dev/ttyS0");

[Serg79]

Мне надо это реализовать под Win32.

[Sla]

ну дык?
думаю что вопросов не возникнет
как в с++ ты открываешь serial порт/файл? (я не помню синтаксис, но знаю что просто)
точно также и в перле


Добавлено через 5 минут и 59 секунд:
гляди сюда
гугль рулит
http://answers.tveasy.co.uk/c.l.p.misc/W-Serial-P.htm
http://search.cpan.org/~cook/Device-SerialPort-1.002001/SerialPort.pm

[RXL]

Serg79, тут можно взять модуль Win32::SerialPort:
http://www.cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/

RXL, может Вы знаете где есть пример простого модуля (типа "Hello world") для Perl, написанного на 'C'?

Ты имеешь в виду, писать на С для Perl -  я так понял.
Об этом написано в книге Perl Programming (Программирование на языке Perl), издательство o'Reilly. Можно найти в электронном виде на английском или купить бумажную на русском.

[Serg79]

Serg79, тут можно взять модуль Win32::SerialPort:
http://www.cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/

Я не как ни пойму, как мне этот модуль прикрутить к Perl-у в Windows. 
Дело в том, что утилита установки модулей "ppm" требует чтобы модули были с расширением "*.ppd", а Win32-SerialPort является архивом "tar.gz".

[Sla]

 а че в README разве не написано?

perl Install.PL

но сначала распаковать

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

[Serg79]

Не, "Makefile.PL" в Win-де не прокатывает. Там помимо Perl-овских ".pm" необходимы и ".dll" в которых это все реализованно. Поэтому в винде и существует утилита "ppm" которая устанавливает и удаляет пакеты.

[RXL]

Serg79, на сайте ActivePerl по этому поводу ничего не нет?

[Sla]

Serg79, а ты уверен?
тебе нужен модуль

use Win32;
use Win32::API 0.01;

и он наверное идет в составе activeperl

ps. чего я сюда лезу? я аналогичной ситуацией сталкивался с тиклем, там такая же ситуация с дополнительными модулями

Добавлено через 2 минуты и 50 секунд:
и установи модули
Win32
Win32-API