https://opennet.ru/openforum/vsluhforumID9/8139.html Задача следующая: нужно на Perl написать скрипт, который пингует определенное количество хостов (список IP адресов находится либо в скрипте, либо в отдельном файле). Пинговатся хосты должны каждые 6 минут, отсылатся должны 100 пакетов. После пингования эти 100 значений мне нужно сохранить в базу данных sql для дальнейшей обработки. Поскольку с программированием раньше дела не имел, то мне составить даный скрипт тяжеловато....помогите плизз...<br><br> https://opennet.ru/openforum/vsluhforumID9/8139.html#4 Mon, 30 Sep 2013 14:05:57 GMT &gt;&gt; <br>&gt;&gt;Допили под потребности или смотри комментарий предидушего оратора <br>&gt;&gt; <br>&gt; Спасибо!!!<br><br>http://dns-ip.ru/Personal/Cabinet юзаю этот сервис<br> https://opennet.ru/openforum/vsluhforumID9/8139.html#3 Tue, 10 Mar 2009 11:02:19 GMT <br>&gt;<br>&gt;Допили под потребности или смотри комментарий предидушего оратора <br>&gt;<br><br>Спасибо!!!<br> https://opennet.ru/openforum/vsluhforumID9/8139.html#2 Tue, 10 Mar 2009 10:55:38 GMT &gt;Задача следующая: нужно на Perl написать скрипт, который пингует определенное количество <br>&gt;хостов (список IP адресов находится либо в скрипте, либо в отдельном <br>&gt;файле). Пинговатся хосты должны каждые 6 минут, отсылатся должны 100 пакетов. <br>&gt;После пингования эти 100 значений мне нужно сохранить в <br>&gt;базу данных sql для дальнейшей обработки. Поскольку с программированием раньше дела <br>&gt;не имел, то мне составить даный скрипт тяжеловато....помогите плизз... <br><br>Допили под потребности или смотри комментарий предидушего оратора<br><br>[12:53][berylhead][/home/mike]&gt;cat pinger.pl<br>#!/usr/bin/perl -w<br>#<br># Net pinging util by Mike v0.2<br>#<br>use strict;<br>use warnings;<br><br><br># Обьявляем переменные<br><br>my $net='192.168.0.';<br>my ($addr, $mac, $status, $i, @stack, $ip);<br>our %ip_mac;<br><br># Тут цикл (от 1 до 255, шаг - +1)<br><br>for ($i = 1; $i &lt;= 255; $i++) {<br> $addr="$net"."$i";<br> #print "Trying $addr... ";<br> # выполняем внешнюю команду (send 1 icmp packet, wait 1 second, find count of received packets) https://opennet.ru/openforum/vsluhforumID9/8139.html#1 Tue, 10 Mar 2009 08:06:39 GMT Есть четыре варианта:<br>1. Берешь книжку, man, perldoc и пишешь сам. При столкновении с проблемами задаешь конкретные вопросы. <br>2. Указываешь контакты и сумму. <br>3. Читаешь как правильно задавать вопросы, задаешь вопрос правильно и надеешься на то, что кому-то будет скучно и он захочет потратить время на твою работу<br>4. Ждешь чуда и телепатов. <br>