помогите подключиться по telnet

[diakon2]

из perl скрипта который использует Net::Telnet модуль.

может у когото есть какие либо наработки ?

нужны следующие комманды

LTP-8X# show version
LTP-8X(config)# interface ont 4/36
LTP-8X(config)(if-ont-4/36)# shutdown
(acs)user
(acs-user)user user436
(acs-user-subscriber='user436')show config
(acs-ont)ont 454C54585C087C60
(acs-ont-sn='454C54585C087C60')show config
LTP-8X(switch)# configure
LTP-8X(switch)(config)# vlan 3099
LTP-8X(switch)(config-vlan)#

проблема в том что для модуля нужно указывать корректное значение prompt регулярным выражением. четвертый день бьюсь и все никак. может ктото сталкивался? или может кто подсобит и напишет регулярки для каждой команды? точнее для всего того что написано перед командой. с меня готовая веб морда если нужно кому будет.


с уважением Владимир.

[diakon2]

еще вариант реализовать тоже самое по snmp, есть мануальчик по OID которыми можно
- добавть новый интерфейс онт
- навесить на него профили
- в свиче создать влан
- в acs добавить пользователя\онт и присвоить ему профили

[diakon2]

разобрался, спасибо

[alvin]

разобрался, спасибо

Добрый день. Подскажите, тоже бьюсь с модулем net::telnet для подключения. У Вас удалось его использовать для подключения по telnet или Вы для своих задач все таки snmp использовали?

[alvin]

Разобрался. Необходимо использовать модуль perl не libnet-telnet-perl а libnet-telnet-cisco-perl