| POE :: רכיב :: הלקוח :: ping POE :: רכיב :: הלקוח :: ping הוא לא חסימת ICMP ping הלקוח. |
הורד עכשיו |
POE :: רכיב :: הלקוח :: ping דירוג וסיכום
- רישיון:
- Perl Artistic License
- אתר האינטרנט של המוציא לאור:
- http://search.cpan.org/~apocal/
POE :: רכיב :: הלקוח :: ping תגים
POE :: רכיב :: הלקוח :: ping תיאור
POE :: רכיב :: הלקוח :: Ping הוא לא חסימת ICMP PIG PING. POE :: רכיב :: הלקוח :: ping הוא לא חסימת ICMP ping ping.Synopsis להשתמש POE QW (רכיב :: הלקוח :: ping); POE :: רכיב :: הלקוח :: ping-> spawn (כינוי => "pingthing", # defaults ל "pinger" timeout => 10, # ברירות מחדל ל 1 שניות לנסות שוב => 3, # ברירות מחדל ל 1 ניסיון Onereply => 1, # ברירות מחדל לניזוב מקבילויות => 20, # ברירות מחדל לאותה את bujersize => 65536, # ברירות המחדל לאונף undefDecodddress => 1, # ברירות מחדל ל -0); תת sub_event_handler {$ kernel-> פוסט ("pingthing", # לכתוב את הבקשה לרכיב "pingthing". "פינג", # מבקש ממנה "פינג" כתובת. "פונג", # יש לה לכתוב תשובה כמו אירוע "פונג". $ כתובת, # זוהי הכתובת שאנו רוצים לפינג. $ timeout, # פסק זמן אופציונלי. זה עוקב את ברירת המחדל. $ Retry, # Retries אופציונלי. זה עוקב את ברירת המחדל.); } # זה משנה אשר נקרא כאשר הפגישה מקבל "פונג" # האירוע. היא מטפלת בתגובות מרכיב הפינג. תת Got_Pong {שלי ($ בקשה, $ תגובה) = @_ ; שלי ($ req_address, $ req_timeout, $ req_time) = @ $ בקשה; שלי ($ resp_address, $ roundtrip_time, $ resp_time, $ resp_ttl) = @ $ תגובה; # כתובת התגובה מוגדרת אם זוהי תגובה. אם (הגדרת $ Resp_address) {printf ("ping to% -15.15s ב ד. פונג מ% -15.15s ב% 6.3f sn", $ req_address, $ req_time, $ resp_address, $ roundtrip_time,); לַחֲזוֹר; } # אחרת תקופת הפסקה הסתיימה. PrintF ("ping ל% -15.15s נעשה .N", $ req_address,); } או להשתמש POE :: רכיב :: הלקוח :: ping ": const"; # POST ARRAY REF כמו Callback כדי לקבל נתונים בחזרה לך $ Kernel-> פוסט ("פינגר", "פינג", ); # השתמש Req_user_args קבוע כדי להגיע לנתונים שלך sub_pong {שלי ($ הבקשה, $ תגובה) = @_ ; שלי $ USER_DATA = $ בקשה -> ; ...; } דרישות: · פרל
POE :: רכיב :: הלקוח :: ping תוכנה קשורה