Quería saber si alguno de ustedes ha abierto algún puerto usando el módulo Win32::SerialPort.
- use Win32::SerialPort;
- my $ob = Win32::SerialPort->new ('COM32') || die "Can't open serial port ";
- $ob->baudrate(115200);
- $ob->parity("none");
- $ob->databits(8);
- $ob->stopbits(1);
- $ob->handshake("none") || die "fail setting handshake";
- $ob->error_msg(1);
- $ob->user_msg(1);
- $ob->lookclear;
- my $command="AT";
- my $object = $ob->write($command ."\r");warn "write failed\n" unless ($object);
- my $answer = $ob->input;
- print "$answer";
Ese es el código que tengo. Intento mandar el comando y espero una respuesta pero el problema es que nunca lo envía.
Estoy usando Strawberry 5.12, Windows 7 64 bits.
