صافي :: المقبس :: غير حظ NET :: Socket :: Nonblock هو امتداد بيرل لسهولة إنشاء تطبيق مؤسس متعدد المقابس.
التحميل الان

صافي :: المقبس :: غير حظ الترتيب والملخص

صافي :: المقبس :: غير حظ العلامات

الوحدة النمطية بيرل بيرل تطبيق متعدد المقابس تطبيق موضوع واحد متعددة مقبس موضوع واحد

صافي :: المقبس :: غير حظ وصف

Net :: المقبس :: Novblock هو امتداد بيرل لسهولة إنشاء تطبيق مؤسس متعدد المقابس. Net :: المقبس :: Novblock هو ملحق بيرل لسهولة إنشاء تطبيق مؤكولات واحدة متعددة المقبس، وخاصة Servers TCP غير المتفوقة. استخدام صارمة؛ استخدام صافي :: المقبس :: غير حظ $ | ++؛ بلدي localport = التحول أو يموت "الاستخدام: $ 0 n"؛ بلدي rmlehost = التحول أو يموت "الاستخدام: $ 0 n"؛ My $ socknest = net :: المقبس :: nonblock: nest-> جديد (حدد => 0.1، silencet => 0، debug => $ ^ w، buffsize => 10240،) أو الموت "خطأ في إنشاء عش مآخذ عش: $ @ن"؛ $ socknest-> الاستماع (localport => localport adliceport، proto => 'tcp'، قبول => newconnection، silencet => 0، # cheassst => 10، استمع => 10،) أو الموت "تعذر الاستماع إلى المنفذ $ localport ': $ @ n "؛ بلدي conpool = ()؛ بينما ($ socknest-> io ()) {بلدي $ pstr = ''؛ بلدي clnsock = undef؛ بلدي $ srvsock = undef؛ بينما (($ clnsock، srvsock $) = كل ( conpool)) {بلدي clientid $ = sprintf (". 15s: - 5.5s"، $ socknest-> peeraddr ($ clnsock)، peernest-> peerport- clnsock $))؛ بلدي str str = undef؛ بينما (($ str = $ socknest-> read ($ clnsock) $ srvsock-> يضع ($ str)؛ } إذا (! محددة ($ str)) {$ pstr. = "$ clientid client clienn"؛ $ socknest-> إغلاق ($ clnsock)؛ # طريقة النمط القديم اتصل $ srvsock-> إغلاق ()؛ # طريقة أسلوب OO استدعاء DELETE ($ conpool {$ clnsock})؛ التالي؛ } بينما (($ str = $ srvsock-> قراءة ($ str)) {$ pstr. = "compliented $ من الخادم" .safestr ($ str). "n"؛ $ socknest-> يضع ($ clnsock، $ str)؛ } إذا (! محددة ($ str)) {$ pstr. = "خادم complientid companed compann"؛ $ socknest-> إغلاق ($ clnsock)؛ $ srvsock-> close ()؛ حذف ($ conpool {$ clnsock})؛ التالي؛ } } إذا (الطول ($ pstr)) {print localtime (). "n". $ pstr؛ } } Sub NewConnection {بلدي ($ clnsock) = التحول أو العودة؛ $ conpool {$ clnsock} = $ socknest-> connect (peeraddr => remote host، proto => 'tcp'،)؛ إذا (! $ conpool {$ clnsock}) {warn "لا يمكن الاتصال ب" releyhost $ ": $ @ n"؛ $ clnsock-> close ()؛ حذف ($ conpool {$ clnsock})؛ إرجاع؛ } العودة 1 } SUAL SAFER {my $ str = التحول أو العودة "! undef! '؛ $ str = ~ s {()} {sprinthf ("\ x 2.2x"، ORD ($ 1))} GSEX؛ العودة $ str؛ }؛ المتطلبات: متطلبات بيرل: perl.

صافي :: المقبس :: غير حظ برامج ذات صلة