>Народ, добрый человек прислал мне вот такой скрипт, который читает данные из
>СОМ-порта. Но вот проблема, как установить на порту 19200 7Е1?
>
>#!/usr/bin/perl
Выставляй параметры порта перед его открытием командой stty, например:
#---------------------------------------------------------------+
# Prepare port for communication and open it |
#---------------------------------------------------------------+
syslog('debug', 'setup communication params: port %s, speed %d', $port, $speeed);
#`/bin/stty -F $port $speed ignbrk -icrnl -ixon -opost -onlcr -isig -icanon -iexten -echo -echoe -echok -echoctl -echoke 2>/dev/null`;
`/bin/stty -F $port $speed 1:0:cbe:0:0:0:0:0:0:5:1:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0`;
if (!open(PORT, $port)) {
syslog('error', 'cannot open port %s', $port);
} else {
и т.д.
Обрати внимание, что параметры можно задавать как в human-readable, так и в stty-readable виде. Получить готовую строку параметров для текущего режима работы порта можно добившись в одной консоли приемлемой картины в minicom, а на другой консоли запустив stty в режиме опроса состояния порта, например:
stty -F /dev/ttyS0 -g