ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Max Gotlib                           2:5080/1003.2  17 Apr 2002  14:46:06
 To : All
 Subject : Re: Работа с COM-портом в эхотаге
 -------------------------------------------------------------------------------- 
 

 > Hе подскажет кто-нибудь как работать с COM-портом в Perl (FreeBSD 4.5)? Из
 > доки что-то ничего не понял, может не там читал :(
 > Дока, разъяснения, примеры, всё приветствуется.
 
 use POSIX;
 
 my $fd = POSIX::open( "/dev/cuaa0", &POSIX::O_RDWR );
 my $ti = POSIX::Termios->new;
 
 $ti->getattr( $fd );
 $ti->setcc( &POSIX::VMIN, 1 );
 $ti->setcc( &POSIX::VTIME, 0 );
 $ti->setcflag( &POSIX::CS8 | &POSIX::CSTOPB | &POSIX::CREAD |
 
                &POSIX::PARENB | &POSIX::PARODD | &POSIX::CLOCAL );
 
 $ti->setiflag( &POSIX::IGNBRK );
 $ti->setoflag( 0 );
 $ti->setispeed( &POSIX::B1200 );
 $ti->setospeed( &POSIX::B1200 );
 $ti->setattr( $fd ); 
                 
 &POSIX::write( $fd, $buf, $len );
 &POSIX::tcdrain( $fd );
 ...
 &POSIX::read( $fd, $buf, 100 );
 ...
 
 --
 Max.
 --- ifmail v.2.15
  * Origin: Controling/UTC (2:5080/1003.2@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Работа с COM-портом в эхотаге   Vladimir Marunin   17 Apr 2002 12:45:50   Re: Работа с COM-портом в эхотаге   Max Gotlib   17 Apr 2002 14:46:06