ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Malashkevich                  2:5020/400     18 Jul 2000  22:36:35
 To : All
 Subject : Читать из COM1
 -------------------------------------------------------------------------------- 
 

 Hi All,
 
 Как читать из порта? Такой скрипт что то работает не так как надо: он все
 время считыает какую то ерунду. ХЕЛП!!!
 #!/usr/bin/perl
 use Fcntl;
 
 sysopen(COM1, "/dev/ttyS0", O_RDONLY | O_NOCTTY ) or die "Can't open COM1: $!ж
 $BUFSIZ = 255;
 $flags = '';
 fcntl(COM1, F_GETFL, $flags) or die "Couldn't get flags for COM1 : $!\n";
 print "Flags $flags O_NONBLOCK";
 $flags |= !O_NONBLOCK;
 fcntl(COM1, F_SETFL, $flags)or die "Couldn't set flags for COM1 : $!\n";
 
 while (1==1) {
 $bytes_read = sysread(COM1, $buffer, $BUFSIZ);
 if (defined($bytes_read)) {
   print "$bytes_read  $buffer ";
   $buffer="";
 }
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

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