Возникла у меня необходимость ввобить команды в 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);
Что не так?
> Возникла у меня необходимость ввобить команды в switch через перл скрпит, но
> почему-то ничего не происходит.и где ломается?