Oi
alguem ai tem um exemplo de programa funcional em perl que leia e/ou
escreva na /dev/ttySx ?
To escrevendo um programinha simples que tem que enviar uns bytes pela
serial, mas to tendo dificuldades em alguns pontos.
Por que o programa abaixo nao funciona?
#!/usr/bin/perl
use POSIX qw(:termios_h :fcntl_h);
if ( "$ARGV[0]" eq "" ){ die "Qual a porta? \n";}
$modem = "$ARGV[0]";
sysopen ( MODEM, $modem, O_RDWR | O_NONBLOCK ) || die "oops:$modem: $!\n";
$mfd=fileno(MODEM);
$mo = POSIX::Termios->new;
sysopen ( MODEM, $modem, O_RDWR| O_NOCTTY | O_NONBLOCK | O_NDELAY ) ||
die "Nao consegui abrir a $!\n";
$mfd=fileno(MODEM);
$mo = POSIX::Termios->new;
$mo->setcflag(B9600 | CREAD | CS8 | CRTSCTS | ~HUPC);
$mo->setattr($mfd, TCSANOW) or die "oops on:setattr:$!\n";
print MODEM "0123456789\r\n";
$mo->setcflag(~CREAD | HUPC);
$mo->setattr($mfd, TCSANOW) or die "oops off:setattr:$!\n";
close MODEM
Paulino
_________________________________ ________________________________________
Paulino Kenji Sato | Universidade Estadual de Maringa
mailto:[EMAIL PROTECTED] | Departamento de Fisica
http://www.dfi.uem.br/~paulino | Maringa Pr Brasil
http://br.geocities.com/linosam/ | Linux user 56176
Assinantes em 09/03/2002: 2240
Mensagens recebidas desde 07/01/1999: 157603
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
