Код: Выделить всё
$p = Net::Ping->new("icmp");
$p->bind($my_addr); # Specify source interface of pings
foreach $host (@host_array)
{
print "$host is ";
print "NOT " unless $p->ping($host, 2);
print "reachable.\n";
sleep(1);
}
$p->close();
ChihPih писал(а):А как пытаетесь прикрутить?
Код: Выделить всё
#!/usr/bin/perl -w
use Net::Ping;
$host = '192.168.0.59';
$my_addr = '192.168.0.59';
@host_array = 'google.ru';
$vtor = `cp /test1 /test`;
$p = Net::Ping->new("icmp");
$p->bind($my_addr); # Specify source interface of pings
foreach $host (@host_array)
{
print "$host is ";
$vtor unless $p->ping($host, 2);
print "reachable.\n";
sleep(1);
}
$p->close();
ок.ChihPih писал(а):Еще бы, для задания переменной вы используете апострофы (которые используется для выполнения системных команд и получения от них результата), когда надо вывести строку. То есть вам надо использовать одинарные или двойные кавычки для инициализации переменной $vtor.
Код: Выделить всё
#!/usr/bin/perl -w
use Net::Ping;
$host = '192.168.0.63';
$my_addr = '192.168.0.63';
@host_array = 'google.ru';
$p = Net::Ping->new("icmp");
$p->bind($my_addr); # Specify source interface of pings
foreach $host (@host_array)
{
print `cp /test1 /test ` unless $p->ping($host, 2);
sleep(1);
}
$p->close();
~
ок.snorlov писал(а):$host зачем инициализировали, это ж элемент из массива $host_array
Добрый день!snorlov писал(а):$host зачем инициализировали, это ж элемент из массива $host_array
Код: Выделить всё
use Net::Ping;
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
Оператор until робит до тех пор пока результат проверяемого выражение равен 0 (false). То есть в самом простом случае, код может выглядеть так:Продолжаю изучение и не пойму, цикл until
как его прикрутить! Типа пинг хоста продолжаеться, пока нет ответа. Как только получили ответ, until прикращает действие
Код: Выделить всё
use Net::Ping;
$p = Net::Ping->new();
until ($p->ping($host)){
print "Host is down\n";
}
print "$host is alive.\n";
$p->close();
Не совсем понятно что для чего нужно и зачем?К примеру, мне не понятно, как можно запихнуть - информацию о том что ping есть, пихать его в массив и сравнивать.
[/quote]Не совсем понятно что для чего нужно и зачем?К примеру, мне не понятно, как можно запихнуть - информацию о том что ping есть, пихать его в массив и сравнивать.