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

38 Запросов к базе. 0,547 Генерации страницы, 36MB Использование памяти.
Вы зашли с IP: 54.227.6.156