$t->print("password");

В этом сценарии мы сначала устанавливаем соединение с заданным узлом, затем ожидаем приглашения ввести имя пользователя. Получив его, указываем user (пользователь, под именем которого мы подключаемся к маршрутизатору), потом ждем приглашения ввести пароль и вводим password (пароль данного пользователя). Принцип работы нашего сценария прост и понятен, мы дожидаемся появления определенной строки и, получив ее, отправляем в ответ команду или данные на удаленный узел.

Однако прежде чем двигаться дальше, нам необходимо определиться с тем, что нужно сделать на удаленном активном сетевом оборудовании. Пусть нам необходимо скопировать рабочую конфигурацию маршрутизатора Cisco Router 2620 на TFTP-сервер. Выглядеть это должно примерно так:

Router>

Router>enable

Router#copy running-config tftp

Address or name of remote host []?10.0.1.2

Destination filename []?config080106

!!!!!!

21519 bytes copied in 1.056 secs (20045 bytes/sec)

Другой вариант резервного копирования для маршрутизаторов Cisco – это полный дамп конфигурации, находящейся в флеш-памяти маршрутизатора. Для этого необходимо вначале узнать полное имя файла конфигурации. Получить список файлов, находящихся в флеш-памяти можно с помощью команды «show flash». На рис. 1 показан результат действия данной команды. Выделен файл, который нам необходимо скопировать.

Рисунок 1. Резервное копирование дампа конфигурации

Однако, как видно из данного рисунка, размер дампа конфигурации существенно превышает размер простой копии рабочей конфигурации, которая делалась в первом примере. Это может иметь значение при использовании каналов с небольшой пропускной способностью или если на TFTP-сервере мало свободного места. В такой ситуации имеет смысл делать, к примеру, раз в неделю копию дампа и ежедневно копию рабочей конфигурации, аналогично полному и разностному резервному копированию.

Таким образом, для решения поставленной задачи нам необходимо написать сценарий, корректно выполняющий данный диалог сервера и маршрутизатора. Остается только добавить обработку исключений, на случай если возникнут ошибки, а также отправку администратору письма о том, что резервное копирование успешно осуществлено. Для того чтобы perl-сценарий мог отправлять почтовые сообщения, необходимо наличие модуля sendmail, который в случае отсутствия можно также найти на CPAN.org.

Листинг 2. Отправка почтовых сообщений