PoE :: Component :: Klant :: Ping POE :: COMPONENT :: KLANT :: Ping is een niet-blokkerende ICMP-ping-client.
Download nu

PoE :: Component :: Klant :: Ping Rangschikking & Samenvatting

PoE :: Component :: Klant :: Ping Tags

Perl-module icmp non-blocking non-blocking ping ICMP PING

PoE :: Component :: Klant :: Ping Beschrijving

PoE :: Component :: Klant :: Ping is een niet-blokkerende ICMP-ping-client. PoE :: COMPONENT :: KLANT :: Ping is een niet-blokkerende ICMP-pingclient.Synopsis Gebruik PoE QW (COMPONENT :: KLANT :: PING); POE :: COMPONENT :: KLANT :: PING-> Spawn (alias => "Pinghing", # Standaardinstellingen om "Pinger" timeout => 10, # Defaults tot 1 seconde opnieuw proberen => 3, # Defaults tot 1 poging oneerply => 1, # Standaardinstellingen voor gehandicapten Parallellism => 20, # Defaults to Undef Buffersize => 65536, # Defaults to Undef AlwaydecodeDdress => 1, # Standaardinstellingen tot 0); SUB SOME_EVENT_HANDER {$ KERNEL-> POST ("Pinghing", # Plaats het verzoek aan de "Pingthing" -component. "Ping", # Vraag het om een adres te "pong", # laat het een antwoord ", "Pong" -evenement. $ Adres, # Dit is het adres dat we willen pingen. $ time-out, # optionele time-out. Het overschrijft de standaard. $ Retry, # optionele pogingen. Het overschrijdt de standaard.); } # Dit is de sub die wordt genoemd wanneer de sessie een "Pong"--evenement ontvangt. Het behandelt reacties van de Ping-component. sub got_pong {mijn ($ aanvraag, $ reactie) = @_ ; mijn ($ req_address, $ req_timeout, $ req_time) = @ $ verzoek; mijn ($ resp_address, $ roundtrip_time, $ resp_time, $ resp_ttl) = @ $ reactie; # Het antwoordadres wordt gedefinieerd als dit een reactie is. if (gedefinieerd $ resp_address) {printf ("ping to% -15.15s bij d. Pong van% -15.15s in% 6.3f SN", $ req_address, $ req_time, $ resp_address, $ roundtrip_time,); opbrengst; } # Anders is de time-outperiode geëindigd. PrintF ("Ping to% -15.15s is gedaan.nl", $ req_address,); } of gebruik PoE :: Component :: Klant :: Ping ": const"; # Post een array Ref als de callback om gegevens terug te krijgen naar u $ kernel-> post ("pinger", "ping", ); # Gebruik de req_user_args constant om bij uw data-sub got_pong {mijn ($-aanvraag, $ reactie) = @_ ; Mijn $ User_Data = $ Aanvraag -> ; ...; } Vereisten: · Perl

PoE :: Component :: Klant :: Ping Gerelateerde software