Исходное сообщение
"Создание реконнект-скрипта для DSL-модема " Отправлено Vlad, 15-Май-11 23:51
#!/usr/bin/perl use Net::Telnet; my @array = (); $telnet = new Net::Telnet ( Timeout=>50, Errmode=>'die', Prompt => '/[\$%#E<gt>] $/'); $telnet->open('???_IP'); $telnet->login('admin', '???_??????'); @array = $telnet->cmd(String =>'ping -c 10 4.2.2.4'); my $nonet = index($array[$#array-1], "100% packet loss", 1); if ( ( $#array != 14 ) || ( $nonet > 0 ) )   {     print "rebooting modem \n";     $telnet->cmd('reboot');     $telnet->close;   } $telnet->close;

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> #!/usr/bin/perl > use Net::Telnet; > my @array = (); > $telnet = new Net::Telnet ( Timeout=>50, > Errmode=>'die', > Prompt => '/[\$%#E<gt>] $/'); > $telnet->open('???_IP'); > $telnet->login('admin', '???_??????'); > @array = $telnet->cmd(String =>'ping -c 10 4.2.2.4'); > my $nonet = index($array[$#array-1], "100% packet loss", 1); > if ( ( $#array != 14 ) || ( $nonet > 0 > ) ) > { > print "rebooting modem \n"; > $telnet->cmd('reboot'); > $telnet->close; > } > $telnet->close;
	Введите код, изображенный на картинке: