Возникла у меня необходимость ввобить команды в switch через перл скрпит, но почему-то ничего не происходит.
Прошу поделиться опытных.Собственно мое:
#!/usr/bin/perl -w
use strict;
use Device::SerialPort;
sub openPort($);
sub closePort($);
my $device = "/dev/ttyUSB0";
sub openPort($)
{
my ($device) = @_;
my $serial = Device::SerialPort->new ($device, 1);
die "Can't open serial port $serial: $^E\n" unless ($serial);
$serial->databits(8);
$serial->baudrate(9600);
$serial->parity("none");
$serial->stopbits(1);
return $serial;
}
sub closePort($)
{
my ($serial) = @_;
$serial->close();
}
my $serial = openPort($device);
$serial->write("\r");
$serial->write("no");
$serial->write("enable");
$serial->write("conf t");
$serial->write("intel vlan 1");
$serial->write("ip addr 10.10.10.2 255.255.255.0");
$serial->write("no shut");
$serial->write("exit");
$serial->write("exit");
$serial->write("copy ftp://10.10.10.1/2960p.conf system:running-config");
$serial->write("wr mem");
$serial->write("reload");
$serial->write("\r");
closePort($serial);
Что не так?