The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Perl Device::SerialPort запись в консоль cisco"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Программирование под UNIX (Perl)
Изначальное сообщение [ Отслеживать ]

"Perl Device::SerialPort запись в консоль cisco"  +/
Сообщение от kamenniygorets (ok) on 06-Окт-11, 06:36 
Возникла у меня необходимость ввобить команды в 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);


Что не так?

Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Perl Device::SerialPort запись в консоль cisco"  +/
Сообщение от anonymous (??) on 08-Окт-11, 01:41 
> Возникла у меня необходимость ввобить команды в switch через перл скрпит, но
> почему-то ничего не происходит.

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

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру