NET :: Socket :: nonblock net :: socket :: nonblock فرمت Perl برا اجاد آسان ند سوت نرم افزار ت ت است.
انون بارر ن

NET :: Socket :: nonblock رتبه بند و خلاصه

NET :: Socket :: nonblock برسب ها

ماول رل رل نرم افزار ند سوت برنامه ت موضوع ند سوت ت نخ دار

NET :: Socket :: nonblock شرح

NET :: Socket :: NonBlock فرمت Perl برا اجاد آسان ند سوت نرم افزار ت ت است. NET :: Socket :: Nonblock فرمت Perl برا اجاد آسان برنامه ت ت سوت، به وه Non-Forking TCP Servers.Synopsis # TCP ورت حمل و نقل با ورود به سستم # Win32 ار م ند! استفاده از سخت استفاده از NET :: Socket :: nonblock؛ $ | ++؛ $ localport = Shift ا Die "استفاده: $ 0 n"؛ $ Remotehost = Shift ا Die "استفاده: $ 0 N"؛ $ socknest = net :: socket :: nonblock :: nest-> new (selectt => 0.1، silencet => 0، debug => $ ^ w، buffsize => 10240،) ا مر "خطا در اجاد Sockets Nest: $ n "؛ $ SOCKNEST-> وش دادن (localport => $ locatort، proto => 'tCP'، accept => newconnection، silencet => 0، #clientsst => 10، وش دادن => 10،) ا مر "نم تواند در ورت وش دهد $ locatort ': $ @ n "؛ my conpool = ()؛ در حال ه ($ socknest-> io ()) {$ pstr = '' '؛ $ clnsock = undef؛ $ srvsock = undef؛ در حال ه (($ clnsock، $ srvsock) = هر ( conpool)) {$ clientiD = sprintf (".15s: - 5.5s"، $ socknest-> peeraddr ($ clnsock)، $ socknest-> Peerport ( $ clnsock))؛ $ str = undef؛ در حال ه (($ str = $ socknest-> خواندن ($ clnsock)) طول ($ str)) {$ PSTR = "$ clientiD از مشتر" .SAfestr ($ str). "n"؛ $ srvsock-> puts ($ str)؛ }؛ ار (! تعرف شده ($ str)) {$ pstr = "$ client client closeN"؛ $ socknest-> بستن ($ clnsock)؛ # روش قدم به سب $ srvsock-> بستن ()؛ # روش OO سب تماس حذف ($ conpool {$ clnsock})؛ بعد؛ }؛ در حال ه (($ str = $ srvsock-> خواندن ()) طول ($ str)) {$ pstr. = "$ calientiD از سرور" .Safestr ($ str). "n"؛ $ socknest-> puts ($ clnsock، $ str)؛ }؛ ار (! تعرف شده ($ str)) {$ pstr = "$ clientId server closed"؛ $ socknest-> بستن ($ clnsock)؛ $ srvsock-> بستن ()؛ حذف ($ conpool {$ clnsock})؛ بعد؛ }؛ }؛ ار (طول ($ pSTR)) {print localtime (). "n" $ pstr؛ }؛ }؛ Sub NewConnection {My ($ clnsock) = تغر ا بازشت؛ $ conpool {$ clnsock} = $ socknest-> اتصال (peeraddr => $ Remotehost، proto => 'tCP'،)؛ ار ($ conpool {$ clnsock}) {هشدار "نم تواند به $ Remotehost متصل شود: $ @ n"؛ $ clnsock-> بستن ()؛ حذف ($ conpool {$ clnsock})؛ برشت؛ }؛ بازشت 1؛ }؛ SUB SAFELT {$ str = Shift ا بازشت 'undef!'؛ $ str = ~ s {()} {sprintf ("\ x 2.2x"، ORD ($ 1))} gsex؛ بازشت $ str؛ } الزامات: الزامات رل: رل

NET :: Socket :: nonblock نرم افزارها مرتبط