LINUX.ORG.RU

bot на perl для работы с telnet (Net::Telnet)


0

0

Привет
такая трабла
пишу бота для работы с телнет (оборудование DSL)

коннект, логирование происходит нормально, отправляю команды, получаю ответ

$bslot = 1;

if($host =~ /^192\.168\.0\.16$/) { $t = Net::Telnet->new( Timeout => 3, Prompt => '/ras>/');}

@show1 = $t->cmd("lcman command $bslot show ports");
print"Запрос на свитч: lcman command $bslot show ports<br>";
print"Ответ: @show1 <br>";
print "Размер массива $#show1 <br>";

потом парсю массив на предмет поиска нужных данных и вывод идет на html страницу, НО
иногда массив @show1 выглядит так:

7 7

что за косяк??

anonymous
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.