Telnet и Perl

On 09.01.2012, in FreeBSD, Программирование, by Passenger

Небольшой скрипт для собственных справок.

Вывод системное информации с модема dlink 2600u.
При использовании данного скрипта, нужно убедиться что установлен модуль Net::Telnet.
Поправив комментарий в скрипте можно заставить перезагружаться модемы.
Установку модуля необходимо сделать из под суперпользователя

perl -MCPAN -einstall Net::Telnet’
#!/usr/bin/perl
use Net::Telnet;

$connect = new Net::Telnet(Timeout => 10,
                                Host => '10.0.0.1');
$connect -> waitfor('/Login:/');
$connect -> print('admin');
$connect -> waitfor("/Password:/");
$connect -> print('admin');
@answer = $connect -> cmd('sysinfo');
print @answer;
# @answer = $connect -> cmd('reboot');
# print @answer;
Tagged with:  

2 Responses to Telnet и Perl

  1. Серый:

    ну и не будет работать

  2. Passenger:

    Почему же? Перед публикацией он сначала был протестирован. Единственное уточнение (так как не все программируют под perl должен быть установлен модуль Net::Telnet)
    perl -MCPAN -e ‘install Net::Telnet’

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Можно использовать следующие HTML-теги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>