Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.118.226.105] |
|
Сообщ.
#1
,
|
|
|
Добрый день.
Возникла задача пообщаться с Cisco по телнету, начал писать скрипт на perl опять же самой малой кровью, то есть, с использованием готового модуля Net::Telnet 3.03. Код написался, при запуске в дебаггере отрабатывает корректно (возвращает 147 строк), при запуске из shell возвращает засланную команду (которая echo-ed Cisco), остальные строки куда-то исчезают. Включены логи, по логам вижу, что именно так и есть. Может, это баг модуля какой-то известный? Никто не сталкивался? Пока рассматриваю вариант отказа от модуля и переписывания на raw sockets, правда, для этого придется реализовывать сам протокол telnet, что, в принципе, не хотелось бы... То есть, буквально, претензия к коду: @llines = $t->getlines(All => 0); Он по-разному работает в зависимости от наличия и отсутствия -d. |