Май 082013
 

Perl_logo
От делать нечего решил написать скриптик, что бы он мне собирал данные о моем домашнем маршрутиризаторе.
Скрипт написан на перле.

#!/usr/bin/perl
use Net::Telnet;
$connect = new Net::Telnet(Timeout => 15, Host => '192.168.1.1');
$connect -> waitfor('/Login:/');
$connect -> print('root');
$connect -> waitfor("/Password:/");
$connect -> print('Qq111111');
@rom = $connect -> cmd('wan status');
print @rom;

 Leave a Reply

(required)

(required)

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

33 Запросов к базе. 0,282 Генерации страницы, 30MB Использование памяти.
Вы зашли с IP: 207.241.237.221