URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 57802
[ Назад ]
Исходное сообщение
"как установить на порту 19200 7Е1?"
Отправлено serg128 , 30-Июн-05 09:32 
Народ, добрый человек прислал мне вот такой скрипт, который читает данные из СОМ-порта. Но вот проблема, как установить на порту 19200 7Е1?

#!/usr/bin/perl
open (PBX,"/dev/cuaa1");
while (<PBX>)
{
$d=$_;
print $d;
open (DATE,"date +%Y-%m-%d|");
while (<DATE>)
{
   chomp;
   $dat=$_;
   };
close(DATE);
open (CILDATA,">>/opt/collector/ats.".$dat);
print CILDATA $d;
close (CILDATA);
   };
close (PBX);

Содержание
Сообщения в этом обсуждении
"как установить на порту 19200 7Е1?"
Отправлено Vitalka , 30-Июн-05 10:58 
>Народ, добрый человек прислал мне вот такой скрипт, который читает данные из
>СОМ-порта. Но вот проблема, как установить на порту 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

"как установить на порту 19200 7Е1?"
Отправлено sm00th , 30-Июн-05 10:58 
есть такая программа cu
man cu тебе поможет настроить ком-порт.
Удачи.

>Народ, добрый человек прислал мне вот такой скрипт, который читает данные из
>СОМ-порта. Но вот проблема, как установить на порту 19200 7Е1?
>
>#!/usr/bin/perl
>open (PBX,"/dev/cuaa1");
>while (<PBX>)
>{
>$d=$_;
>print $d;
>open (DATE,"date +%Y-%m-%d|");
>while (<DATE>)
>{
>   chomp;
>   $dat=$_;
>   };
>close(DATE);
>open (CILDATA,">>/opt/collector/ats.".$dat);
>print CILDATA $d;
>close (CILDATA);
>   };
>close (PBX);


"как установить на порту 19200 7Е1?"
Отправлено Chris , 30-Июн-05 14:13 
7 E первый :-) га-га-га на ком порт? га-га-га
добро пожаловать в клуб телефонистов синок :-)
"как установить на порту 19200 7Е1?"
Отправлено serg128 , 30-Июн-05 14:17 
>7 E первый :-) га-га-га на ком порт? га-га-га
>добро пожаловать в клуб телефонистов синок :-)

  Что-то не понял юмора. Скорость 19200bps 7 бит контроль четный(even)
стоп биты 1.(Не путать с потоком Е1!)

"как установить на порту 19200 7Е1?"
Отправлено Chris , 30-Июн-05 14:20 
>  Что-то не понял юмора. Скорость 19200bps 7 бит контроль четный(even)
>
> стоп биты 1.(Не путать с потоком Е1!)


Ааааа... тогда это я не понял :-)
cu -s 19200 -e

воть попоробуй