Возникла у меня необходимость ввобить команды в 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);

Что не так?

• Perl Device::SerialPort запись в консоль cisco,anonymous, 01:41 , 08-Окт-11

> Возникла у меня необходимость ввобить команды в switch через перл скрпит, но
> почему-то ничего не происходит.

и где ломается?