نت :: easytcp. NET :: ESPEYTCP هو وحدة Perl التي تتيح لك إنشاء عملاء وخوادم TCP / IP صديقة للنطاق الترددي للنطاق الترددي.
التحميل الان

نت :: easytcp. الترتيب والملخص

نت :: easytcp. العلامات

الوحدة النمطية بيرل TCP / IP. IP. TCP. عملاء TCP / IP خوادم TCP / IP

نت :: easytcp. وصف

Net :: EasyTCP هو وحدة PERL التي تتيح لك إنشاء عملاء وخوادم TCP / IP صديقة للنطاق الترددي من النطاق الترددي. Net :: EasyTCP هو وحدة PERL التي تتيح لك إنشاء عملاء TCP / IP وصديقين سهل النطاق الترددي. هناك بعض الملامح الرئيسية "Net easyTCP": وحدة واحدة سهلة لإنشاء كل من العملاء والخوادم كائن موجه الواجهة ردود الاسترجاعات القائمة على الأحداث في وضع الخادم البروتوكول الداخلي لرعاية جميع مشاكل النقل المشترك تشفير شفافة مثال ضغط شفاف: استخدم Net :: EasyTCP؛ # # إنشاء كائن الخادم # $ Server = Net Net :: EasyTCP (الوضع => "Server"، Port => 2345،) || يموت "خطأ في إنشاء الخادم: $ @ n"؛ # # أخبرها عن عمليات الاسترذاف الخاصة بالاتصال # على الأحداث المعروفة # Server $ Server-> setcallback (البيانات => gotdata، connect => متصل، افصل => غير متصل،) || يموت "خطأ في إعداد ردود: $ @ n"؛ # # بدء تشغيل الخادم # $ Server-> البدء () || يموت "خطأ بدء تشغيل الخادم: $ @ n"؛ # # يتم استدعاء هذا الفرعية عندما يرسل عميل البيانات الأمريكية # Sub gotdata {My $ client = التحول؛ بلدي $ التسلسل = $ العميل-> المسلسل ()؛ بياناتي $ = $ client-> البيانات ()؛ طباعة "العميل $ التسلسل أرسل لي بعض البيانات، وإرسالها مباشرة مرة أخرى لهم مرة أخرى"؛ عميل $-> إرسال (بيانات $) || يموت "خطأ في إرسال إلى العميل: $ @ n"؛ إذا ($ البيانات EQ "Quit") {$ client-> close () || يموت "خطأ إغلاق العميل: $ @ n"؛ } Elsif ($ البيانات EQ "DIT") {$ server-> stop () || يموت "خطأ توقف الخادم: $ @ n"؛ }} # # يتم استدعاء هذا الفرعية عندما يتصل عميل جديد # Sub المتصل {عميل $ = SHIFT؛ بلدي $ التسلسل = $ العميل-> المسلسل ()؛ طباعة "العميل $ التسلسل المتصل فقط"؛ } # # هذا الفرعية يتم استدعاؤه عند قطع اتصال عميل موجود # Sub غير متصلين {عميل $ = SHIFT؛ بلدي $ التسلسل = $ العميل-> المسلسل ()؛ طباعة "العميل $ التسلسل فقط قطع الاتصال فقط"؛ } مثال العميل: استخدم Net :: EasyTCP؛ # # إنشاء عميل جديد والاتصال بخادم # $ عميل = Net Net :: EasyTCP (الوضع => "العميل"، المضيف => "LocalHost"، Port => 2345،) || يموت "خطأ في إنشاء العميل: $ @ n"؛ # # إرسال واستقبال سلسلة بسيطة # $ عميل-> إرسال ("مرحبا هناك") || يموت "خطأ في إرسال: $ @ n"؛ الرد $ = $ client-> تلقي () || يموت "خطأ تلقي: $ @ n"؛ # # إرسال واستقبال الأشياء المعقدة / السلاسل / الصفائف / التجزئة حسب المرجع # التجزئة = ("أن تكون أو" => "لا تكون"، "فقط" آخر "=>" perl hacker ")؛ عميل $-> إرسال ( HASH) || يموت "خطأ في إرسال: $ @ n"؛ الرد $ = $ client-> تلقي () || يموت "خطأ تلقي: $ @ n"؛ foreach (keyes {$ {$}}) {print "تلقى المفتاح: $ _ = $ الرد -> {$ _} n"؛ } # # إرسال واستقبال البيانات الثنائية الكبيرة # ل (1..8192) {for (0..255) {$ largedata. = chr ($ _)؛ }}} $ العميل-> إرسال ($ largedata) || يموت "خطأ في إرسال: $ @ n"؛ الرد $ = $ client-> تلقي () || يموت "خطأ تلقي: $ @ n"؛ # # قطع الاتصال نظيفة من خادم # $ العميل -> إغلاق ()؛ المتطلبات: بيرل

نت :: easytcp. برامج ذات صلة