Май 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)

40 Запросов к базе. 0,410 Генерации страницы, 37MB Использование памяти.
Вы зашли с IP: 54.81.76.247