POE:: Компонент:: Клиент:: Утилита ping является неблокированием, ICMP прозванивают клиента.

РЕЗЮМЕ

используйте потенциальную яму POE (Компонент:: Клиент:: Утилита ping);

POE:: Компонент:: Клиент:: Утилита ping-> икра (
Псевдоним => "pingthing", # значения по умолчанию к "pinger"
Блокировка времени => 10, # значения по умолчанию к 1 секунде
Повторите => 3, # значения по умолчанию к 1 попытке
OneReply => 1, # значения по умолчанию к заблокированному
Параллелизм => 20, # значения по умолчанию к undef
BufferSize => 65536, # значения по умолчанию к undef
AlwaysDecodeAddress => 1, # значения по умолчанию к 0
);

sub some_event_handler {
$kernel-> отправление (
"pingthing", # Отправление запрос к "pingthing" компоненту.
"утилита ping", # Просят, чтобы это "прозвонило" адрес.
"вонь", # Сделали, чтобы это отправило ответ как случай "вони".
$address, # Это - адрес, который мы хотим прозвонить.
$timeout, # Дополнительная блокировка времени. Это отменяет значение по умолчанию.
$retry, # Дополнительные повторения. Это отменяет значение по умолчанию.
);
}

# Это - sub, который называют, когда сеанс получает "вонь"
# случай. Это обрабатывает ответы от компонента Утилиты ping.
sub got_pong {
мой ($request, $response) = _ [ARG0, ARG1];

мой ($req_address, $req_timeout, $req_time) = $request;
мой ($resp_address, $roundtrip_time, $resp_time, $resp_ttl) = $response;

# Адрес ответа определен, если это - ответ.
если (определенный $resp_address) {
printf (
"прозвоните к %-15.15s в %10d. вонь от %-15.15s в %6.3f sn",
$req_address, $req_time,
$resp_address, $roundtrip_time,
);
возвратитесь;
}

# Иначе период блокировки времени закончился.
printf (
"утилита ping к %-15.15s является done.n", $req_address,
);
}

или

используйте POE:: Компонент:: Клиент:: Утилита ping ":const";

# Отправьте массив касательно как отзыв, чтобы вернуть данные Вам
$kernel-> отправление ("pinger", "утилита ping", ["вонь", $user_data]);

# используйте константу REQ_USER_ARGS, чтобы добраться до Ваших данных
sub got_pong {
мой ($request, $response) = _ [ARG0, ARG1];
мой $user_data = $request-> [REQ_USER_ARGS];
...;
}