Device::SerialPort e cuvintul cheie
Exemplu luat de pe net, mai departe te descurci tu, daca stii oleaca de perl.
Daca sw-ul e cisco si legat pe ethernet nu serial ai si mai frumos,
Net::Telnet::Cisco
#!/usr/bin/perl
use Device::SerialPort;
my $port = Device::SerialPort->new("/dev/ttyUSB0");
$port->databits(8);
$port->baudrate(19200);
$port->parity("none");
$port->stopbits(1);
while(1) {
my $byte=$port->read(1);
print "$byte";
}
--
Dan Borlovan
Datagroup-Int
_______________________________________________
RLUG mailing list
[email protected]
http://lists.lug.ro/mailman/listinfo/rlug
