POE :: Component :: العميل :: Traceroute POE :: Component :: العميل :: Traceroute هو عميل Traceroute غير حظر.
التحميل الان

POE :: Component :: العميل :: Traceroute الترتيب والملخص

POE :: Component :: العميل :: Traceroute العلامات

الوحدة النمطية بيرل عدم الحظر غير مؤمن متتبع traceroute client. متتبع

POE :: Component :: العميل :: Traceroute وصف

POE :: Component :: Client :: Traceroute هو عميل Traceroute غير حظر. POE :: Component :: Client :: Traceroute هو عميل Traceroute غير حظر. استخدام POE QW (مكون :: العميل :: Traceroute)؛ POE :: Component :: Component :: Client :: Traceroute-> Spawn (الاسم المستعار => "Tracer"، # الإعدادات الافتراضية إلى Tracer firesthop => 1، # افتراضيات إلى 1 maxttl => 16، # افتراضيات إلى 32 قفزات المهلة => 0، # الإعدادات الافتراضية إلى Never QueryTimeout => 3، # افتراضيات إلى 3 ثوان استعلامات => 3 '، # الافتراضات إلى "0.0.0.0" perhopppostack => 0، # الافتراضيات إلى أي جهاز perhoppostback =>' eth0 '، # الافتراضيات # الافتراضية إلى UNDIF useIcmp => 0، # الإعدادات الافتراضية إلى 0 Debug => 0، # افتراضيات إلى 0 Debugsocket => 0، # الافتراضي إلى 0)؛ Sub Somine_event_handler {$ kernel-> post ("tracer"، طلب # النشر إلى مكون "Tracer" "Traceroute"، # اطلب منه Traceroute بعنوان "Trace_Response"، # إجابات نشر "Trace_Response"، # هذا هو المضيف إلى Traceroute ل ، # البيانات لإرسالها مرة أخرى مع حدث إعادة النشر])؛ } # هذا هو البرنامج الفرعي الذي يطلق عليه الاستجابات من مكون Traceroute # #. Sub Trace_Response {My ($ طلب، Response $) =_ ؛ بلدي ($ المقصد، خيارات $، الاتصال $) = @ طلب $؛ بلدي (قفزات $، بيانات $، خطأ $) = @ استجابة $؛ إذا (القفزات $) {print "traceroute النتائج ل destadn $"؛ foreach بلدي $ Hop (بيانات $) {My Hopnumber $ = $ Hop -> {Hop}؛ بلدي routerip = $ Hop -> {Routerip}؛ بلدي @ rtts = @ {$ Hop -> {النتائج}}؛ طباعة "$ hopnumbtt $ routeript"؛ foreach (rtts) {IF ($ _ EQ "*") {print "*"؛ } آخر {printf " 0.3FMS"، $ _ * 1000؛ }} طباعة "N"؛ }} Warn "حدث خطأ في البحث عن $ المقصد: $ Errorce" إذا ($ خطأ)؛ } أو Sub Other_Event_handler {$ kernel-> post ("tracer"، # طلب آخر إلى "Tracer" مكون "Traceroute"، # اسأله عن Traceroute إلى عنوان "Trace_Response"، # إجابات نشر "Trace_Response"، # هذا هو المضيف ل Traceroute إلى )؛ } Sub Trace_row {My (طلب $ ($، Response) = @ _ ؛ بلدي ($ المقصد، خيارات $، الاتصال $) = @ طلب $؛ بلدي ($ coursehop، بيانات $، خطأ $) = @ $ استجابة؛ # بيانات $ تحتوي فقط على ردود فقط على TTL # الهيكل هو نفسه بالنسبة ل Trace_Response فوق} PoE :: Component :: العميل :: Traceroute هو عميل Traceroute غير حظر. يتيح العديد من الدورات الأخرى تراسيروتي من خلالها بالتوازي، ويتيح لهم مواصلة القيام بأشياء أخرى أثناء انتظار الردود. متطلبات: perl.

POE :: Component :: العميل :: Traceroute برامج ذات صلة