POE : : Composante : : Usager : : Le cinglement est un usager non groupant de cinglement d'ICMP.

SYNTHÈSE

employer le qw de POE (composante : : Usager : : Cinglement) ;

POE : : Composante : : Usager : : Ping->spawn (
Dit => « pingthing », # défauts au « émetteur d'impulsions sonar »
=> 10 de minuterie, # défauts à 1 seconde
=> 3 de relance, # défauts à 1 tentative
=> 1 d'OneReply, # défauts aux handicapés
=> 20 de parallélisme, # défauts à l'undef
=> 65536 de BufferSize, # défauts à l'undef
=> 1 d'AlwaysDecodeAddress, # défauts à 0
) ;

some_event_handler secondaire {
$kernel->post (
« pingthing », # goujon la demande à la composante « pingthing ».
le « cinglement », # lui demandent « pour cingler » une adresse.
le « pong », # le font inscrire une réponse comme événement de « pong ».
$address, # ceci est l'adresse que nous voulons cingler.
$timeout, # minuterie optionnelle. Elle dépasse le défaut.
$retry, # relances optionnelles. Il dépasse le défaut.
) ;
}

# c'est le sous-marin qui est appelé quand la session reçoit un « pong »
# événement. Il traite des réactions de la composante de cinglement.
got_pong secondaire {
mon ($request, $response) = @_ [ARG0, ARG1] ;

mon ($req_address, $req_timeout, $req_time) = @$request ;
mon ($resp_address, $roundtrip_time, $resp_time, $resp_ttl) = @$response ;

# l'adresse de réaction est définie si c'est une réaction.
si ($resp_address définis) {
printf (
« cinglement à %-15.15s à %10d. pong de %-15.15s en Sn de %6.3f »,
$req_address, $req_time,
$resp_address, $roundtrip_time,
) ;
renvoi ;
}

# autrement la période de minuterie a fini.
printf (
le « cinglement à %-15.15s est done.n », $req_address,
) ;
}

ou

utilisation POE : : Composante : : Usager : : Cinglement « : const » ;

# goujon une référence de choix comme rappel de service pour obtenir des caractéristiques de nouveau à vous
$kernel->post (« émetteur d'impulsions sonar », « cinglement », [« pong », $user_data]) ;

# utilisation le REQ_USER_ARGS continuel d'obtenir à vos caractéristiques
got_pong secondaire {
mon ($request, $response) = @_ [ARG0, ARG1] ;
mon $user_data = $request-> [REQ_USER_ARGS] ;
… ;
}